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

1

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

2013-11-27T12:23:24+00:00
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.