Question

Написать программу на языке прлграммирования Pascal. В компьютер вводятся по очереди данные о росте N учащихся класса. Определить средний рост учащихся класса.

Answer 1

Program pr_1;
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.