Паскаль: Дана последовательность целых чисел, ввод последовательности заканчивается 0 (до первого введенного нуля), найти среднее арифметическое чисел из последовательности

Question

Информатика

Ермилий

14 июля, 14:11

Паскаль: Дана последовательность целых чисел, ввод последовательности заканчивается 0 (до первого введенного нуля), найти среднее арифметическое чисел из последовательности

+3

Ответы (1)

Знаете ответ?

Сеня · Answer 1

Var temp, sum, n:integer;

begin

sum:=0;

n:=0;

read (temp) ;

while (temp>0) do

begin

inc (sum, temp) ;

inc (n) ;

read (temp) ;

end;

writeln;

writeln (sum/n)

end.