Дана последовательность целых чисел, признаком конца которой служит 0. 0 не входит в последовательность. Найти среднеарифметическое элементов последовательности. Напишите программу

Question

Информатика

Фридерика

18 февраля, 08:44

Дана последовательность целых чисел, признаком конца которой служит 0. 0 не входит в последовательность. Найти среднеарифметическое элементов последовательности. Напишите программу

+4

Ответы (1)

Знаете ответ на вопрос?

Вит · Answer 1

Program n1;

var a, sum, k: integer;

begin

readln (a) ;

sum:=0;

k:=0;

while a0 do

begin

sum:=sum+a;

k:=k+1;

readln (a) ;

end;

writeln (sum/k) ;

end.