var srarfm:real;
i,count,n,sum:integer;
begin
for i:=150 to 340 do begin
inc(count);
sum:=sum+i;
srarfm:=sum/count;
end;
writeln(srarfm);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var srarfm:real;
i,count,n,sum:integer;
begin
for i:=150 to 340 do begin
inc(count);
sum:=sum+i;
srarfm:=sum/count;
end;
writeln(srarfm);
end.