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);

...