В классе учатся 30 человек, имеющие рост в интервале от 150 до 198 см. Найти средний рост учащихся.

Составить программу в паскале с массивом.

1

Ответы и объяснения

  • BiFi
  • отличник
2014-03-16T19:46:32+04:00
Program BiFi;
Var A:array [1..30] of real;
i:integer; 
k:real;
Begin 
k:=0;
for i:=1 to 30 do begin readln(A[i]);
                        k:=k+A[i];
                        end;
writeln(k/30);
readln;
end.