Question

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

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

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

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

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

Answer 1

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

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.