Question

Определите среднее арифметическое элементов последовательности, завершающейся числом 0.

Число 0 в последовательность не входит. Числа, следующие за нулем, считывать не нужно.

Входные данные
Вводится последовательность целых чисел. Ввод завершается, когда будет введено число 0.

Выходные данные
Выведите одно число - среднее арифметическое элементов последовательности

Answer 1

Ответ:

var

a, s , k : integer ;

begin

s :=0

k :=0

read (a)

while a - 0 do

begin

s : = s+a

k : = K+1

read (a)

end

writeln (s/k)

end

Объяснение: