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

Question

Информатика

Тарасыч

30 декабря, 14:45

Паскаль: Дана последовательность целых чисел, ввод последовательности заканчивается 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.