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

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

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

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

Примеры
входные данные
1
7
9
0
выходные данные
5.66666666667

Вопрос школьника по предмету Информатика

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

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

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

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

Примеры
входные данные
1
7
9
0
выходные данные
5.66666666667

Ответ учителя по предмету Информатика

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

var

  m,n,s:integer;

begin

  s:=0; n:=0;

  repeat

    Read(m);

    if m<>0 then begin s:=s+m; n:=n+1 end

  until m=0;

  if n>0 then Writeln(s/n)

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

end.