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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы