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

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

Объяснение:

Comments

спасибон