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