Question

Паскаль: Дана последовательность целых чисел, ввод последовательности заканчивается 0 (до первого введенного нуля), найти среднее арифметическое чисел из последовательности

Answer 1

var temp, sum, n:integer;
begin
  sum:=0;
  n:=0;
  read(temp);
  while(temp>0) do
  begin
    inc(sum,temp);
    inc(n);
    read(temp);
  end;
  writeln;
  writeln(sum/n)
end.