Определите среднее арифметическое элементов последовательности, завершающейся числом 0.
Число 0 в последовательность не входит. Числа, следующие за нулем, считывать не нужно.
Входные данные
Вводится последовательность целых чисел. Ввод завершается, когда будет введено число 0.
Выходные данные
Выведите одно число - среднее арифметическое элементов последовательности
Ответы на вопрос
Ответил denissmirnov134133
0
Ответ:
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
Объяснение:
Новые вопросы