Определите среднее значение всех элементов последовательности, завершающейся числом 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.