Написать программу на языке прлграммирования Pascal.
В компьютер вводятся по очереди данные о росте N учащихся класса. Определить средний рост учащихся класса.
В компьютер вводятся по очереди данные о росте N учащихся класса. Определить средний рост учащихся класса.
More Questions From This User See All
Answers & Comments
var a:array [1..n] of integer;
i, c, n:integer;
begin
readln(n)
for i:=1 to n do
begin
a[i] := random(150, 180);
c := c + a[i];
end;
writeln(c / n);
end.