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

Question

Информатика

Октавия

29 ноября, 09:30

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

+1

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