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

Question

Информатика

Леонтинка

21 июля, 17:26

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

+2

Ответы (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.