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

Question

Информатика

Рося

10 августа, 10:26

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

+4

Ответы (1)

Знаете ответ?

Фирс · 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.