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

Использовать массивы в данной задаче нельзя.

Входные данные

Вводится последовательность целых чисел, оканчивающаяся числом 0 (само число 0 в последовательность не входит, а служит как признак ее окончания.

Выходные данные

Выведите ответ на задачу.

Примеры

входные данные

1

7

9

0

выходные данные

5.66666666667

Question

Информатика

Коляха

27 июня, 15:03

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

Использовать массивы в данной задаче нельзя.

Входные данные

Вводится последовательность целых чисел, оканчивающаяся числом 0 (само число 0 в последовательность не входит, а служит как признак ее окончания.

Выходные данные

Выведите ответ на задачу.

Примеры

входные данные

1

7

9

0

выходные данные

5.66666666667

+2

Ответы (1)

Знаете ответ?

Алеша · Answer 1

А массив тут и не нужен. Накапливаем сумму и подсчитываем количество введенных чисел. Их этих двух величин получаем среднее.

var

m, n, s:integer;

begin

s:=0; n:=0;

repeat

Read (m) ;

if m0 then begin s:=s+m; n:=n+1 end

until m=0;

if n>0 then Writeln (s/n)

else Writeln ('Ничего не введено')

end.