Поделитесь своими знаниями, ответьте на вопрос:
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);