Найти среднее арифметическое введенной последовательности чисел - PascalABC.NET
Формулировка задачи:
Ввести с клавиатуры последовательность целых чисел, заканчивающуюся 0. Найти
среднее арифметическое этой последовательности
Решение задачи: «Найти среднее арифметическое введенной последовательности чисел»
textual
Листинг программы
var s, k, x: integer;
begin
k := -1;
s := 0;
repeat
readln(x);
inc(k);
s := s + x;
until x = 0;
if k = 0
then writeln('Введена пустая последовательность, вычислить среднее арифметическое невозможно.')
else writeln(s/k)
end.