Найти среднее арифметическое введенной последовательности чисел - 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.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 3.6 из 5
Похожие ответы