Question

В классе N учеников. Найти средний рост ученика в этом классе.(паскаль)

Answer 1

var s,i,n,k: integer;
begin
repeat
write('Введите кол-во учеников: ');
read(n);
until n>0;
for i:=1 to n do
begin write('Введите рост ',i,' ученика: ');
repeat read(k);
until k>0;
inc(s, k);
end;
write('Средний рост = ',s/n);
end.