Осуществить ввод целых чисел (ввод осуществляется до тех пор, пока не будет введён 0) и подсчитать их сумму и среднее арифметическое введённых положительных чисел. Использовать оператор repeat.

program zz1;

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

begin

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

read (x);

if (x > 0) / / проверяем условие, если очередное число последовательности положительное, то

then begin y:=y + x; k:=k + 1; end; / / добавляем его в сумму и считаем

until x = 0;

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

writeln (' Среднее арифметическое положительных чисел = ', y/k);

end.