Дана последовательность чисел, вводимых с клавиатуры и оканчивающаяся нулем. Составьте программу вычисления: a. суммы всех чисел последовательности; b. среднего арифметического всех чисел последовательности: c. суммы только отрицательных и суммы только положительных чисел последовательности.

program zz1;

var i, k, n, k1, k2:integer; / / задаем переменные целого типа

m:array [1 ... 10000] of integer;

begin

read (m[1]); i:=1;

while m[i]0 do / / вводим числа последовательности с клавиатуры до тех пор, пока не введем ноль, записываем их в массив

begin

i:=i+1;

read (m[i]);

end;

n:=i;

for i:=1 to n do / / организуем цикл, в котором переберем все числа последовательности

begin

k:=k + m[i]; / / получаем сумму всех чисел последовательности

if m[i] > 0 then k1:=k1 + m[i]; / / получаем сумму положительных чисел

if m[i] < 0 then k2:=k2 + m[i]; / / получаем сумму отрицательных чисел

end;

writeln (' сумма чисел последовательности = ', k); / /выводим ответ

writeln (' среднее арифметическое чисел последовательности = ', k/n:5:2);

writeln (' сумма положительных чисел последовательности = ', k1);

write (' сумма отрицательных чисел последовательности = ', k2);

end.