выкладываю 2 раз. пж, помогите
Составить программу, которая считает среднее арифметическое чисел в интервале от 150 до 340.
Составить программу, которая считает среднее арифметическое чисел в интервале от 150 до 340.
More Questions From This User See All
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.