Question

Для проверки физического развития проверяют рост школьников.Составте программу,запаршивающую рост очередного школьника т вычислявшую после медосмотра средний рост прошедших осмотор.Количество школьников заранее не известно.

Answer 1

var
i: integer;
r, s, sr: real;
begin
while i>=0 do
begin
i:=i+1;
write('Рост ', i, '-го ученика: ');
readln(r);
s:=s+r;
sr:=s/i;
writeln(i, ' учеников. Средний рост: ', sr);
end;
end.