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