составить программу для вычисления среднего роста учеников в классе. Количество заранее не известно.

Ответы:

var a,b,c,d:word,

begin

read(b), c:=0,

for a:=1 to b do begin

read(d),

c:=c+d,

end,

write(c/b),

end.