1) Составьте программу вычисления в массиве A(N) суммы всех чисел, кратных 3. 2) Составьте программу вычисления в массиве B(8) суммы отрицательных элементов. 3) Составьте программу вычисления среднего арифметического элементов массива. Пожалуйста.. очень надо!

Я не стала каждый раз описывать массив, думаю с этим ты сама справишься

1) ....

s:=0;

  for i:=1 to n do 

 if a[i]mod 3=0 then s:=s+a[i];

writeln(s);

...

2)  ...

s:=0;

for i:=1 to n do

if abs(a[i])<>a[i] then s:=s+a[i];

writeln(s);

...

3) ...

s:=0;

for i:=1 to n do  s:=s+a[i];

s:=s/n;

writeln(s);

...