В классе N учеников. Найти средний рост ученика в этом классе.(паскаль)
В классе N учеников. Найти средний рост ученика в этом классе.(паскаль)
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы