Как исправить программу? паскаль АВС
задание:
найти среднее арифметическое введенных чисел (числа вводятся до тех пор, пока не будет 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.
задание:
найти среднее арифметическое введенных чисел (числа вводятся до тех пор, пока не будет 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.
More Questions From This User See All
Answers & Comments
Можно сделать куда проще:
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.