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

Question

Информатика

Люда

1 июля, 02:33

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

+5

Ответы (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.