Составьте блок-схему и напишите программу для нахождения среднего арифметического всех...

Question

Составьте блок-схему и напишите программу для нахождения среднего арифметического всех натуральных трехзначных чисел на отрезке [300; 900].

Answer 1

Var
n,i,sum: integer;
sr: real;
begin
 n:=0;
for i:=300 to 900 do
begin
 sum:=sum+i;
 n:=n+1;
 end;
  sr:=sum/n;
  writeln ('srednee=',sr);
  end.