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

1
что нужно сделать? сказать чему равно n или блок схему или программу, почему не пишешь этого?
составить программу
на каком языке
паскаль
щас напишу

Ответы и объяснения

2013-12-11T07:34:50+00:00
Var i,sum,m,pr:real;
begin 
i:=1; m:=-1; 
writeln('Вводите рост учеников, когда закончите введите 0.');
while (i<>0) do begin               
          readln(i);               
              sum:=sum+i;               
m:=m+1;               
   end;     
   pr:=sum/m;       
writeln('Средний рост:',pr);       
end.