Вводите по очереди данные в росте N учащихся класса. Определить средний рост учащихся в классе

Question

Информатика

Коля

13 июля, 10:24

Вводите по очереди данные в росте N учащихся класса. Определить средний рост учащихся в классе

+4

Ответы (1)

Знаете ответ на вопрос?

Евтихий · Answer 1

Var i, sum, m, pr:real;

begin

i:=1; m:=-1;

writeln ('Вводите рост учеников, когда закончите введите 0.') ;

while (i0) do begin

readln (i) ;

sum:=sum+i;

m:=m+1;

end;

pr:=sum/m;

writeln ('Средний рост:', pr) ;

end.