Найти среднее арифметическое введенной последовательности чисел - 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д