Определите среднее арифметическое элементов последовательности, завершающейся числом 0. Число 0 в последовательность не входит. Числа, следующие за нулем, считывать не нужно. Входные данные Вводится последовательность целых чисел. Ввод завершается, когда будет введено число 0. Выходные данные Выведите одно число - среднее арифметическое элементов последовательности

var

a, sum, i : integer; / / объявляем переменные целочисленного типа.

begin

writeln ('введите последовательность положительных чисел, окончание ввода - ноль:');

a: = 1;

while a 0 do / / начало цикла.

begin

readln (a); / / считываем число, введенное с клавиатуры.

sum : = sum + a; / / считаем сумму чисел.

if (a 0) then / / если введен не 0, то увеличиваем счетчик количества чисел.

i : = i + 1;

end;

write ('Среднее арифметическое введенных чисел равно: ', sum / i); / /вывод ответа на экран.

end.