В классе N учеников. Найти средний рост ученика в этом классе. (паскаль)

Question

Информатика

Арнольд

29 февраля, 19:08

В классе N учеников. Найти средний рост ученика в этом классе. (паскаль)

+2

Ответы (1)

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

Митя · Answer 1

var s, i, n, k: integer;

begin

repeat

write ('Введите кол-во учеников: ') ;

read (n) ;

until n>0;

for i:=1 to n do

begin write ('Введите рост ', i,' ученика: ') ;

repeat read (k) ;

until k>0;

inc (s, k) ;

end;

write ('Средний рост = ', s/n) ;

end.