Составить две программы на языке Паскаля с помощью операторов цикла До и Пока, которые будут вводить целые числа (до тех пор, пока не будет введен ноль), подсчитывать сумму и среднее арифметическое введеных положительных чисел.

program zz1;

var x, y, k:integer; / / задаем переменные целого типа

begin

read (x);

while x 0 do / / организуем цикл, в котором будем вводить числа последовательности, пока не введем ноль

begin

y:=y + x; / / считаем сумму

k:=k + 1; / / считаем количество

read (x);

end;

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

end.

program zz1;

var x, y, k:integer; / / задаем переменные целого типа

begin

repeat / / организуем цикл, в котором будем вводить числа последовательности, пока не введем ноль

read (x);

y:=y + x; / / считаем сумму

k:=k + 1; / / считаем количество

until x=0;

write (' Сумма чисел последовательности = ', y, ' их количество = ', k - 1); / / выводим ответ

end.