Question

Как исправить программу? паскаль АВС

задание:

найти среднее арифметическое введенных чисел (числа вводятся до тех пор, пока не будет 0)


var N,a,S,i:integer;

SR:real;

begin

writeln ('vvod a=');

readln (a);

S:=0;

while a<>0 do begin

for i:=1 to N do



begin



read (a);

S:=S+a;

end;

Sr:=S/N;

Writeln('Sr=',Sr)

end

end.

Answer 1

Можно сделать куда проще:

var s,n,c:integer;

begin

 (n,c):=(0,0);

 while (true) do begin

   readln(n);

   if (n = 0) then break();

   s += n;

   c += 1;

 end;

 writeln(s/c);

end.