Написать программу на паскале известен рост каждого ученика в классе.рост мальчиков условно задан отрицательными числами. определить средний рост мальчиков и средний рост девочек.

140

358

Посмотреть ответы 2

Ответы на вопрос:

zb2004

Информатика

4,6(68 оценок)

Var n, i, growth, growth_girls, growth_boys, count_boys, count_girls: integer; begin writeln('введите количество учеников в классе'); read(n); growth_girls : = 0; growth_boys : = 0; count_boys : = 0; count_girls : = 0; for i : = 1 to n do begin read(growth); if (growth < 0) then begin growth_boys : = growth_boys - growth; count_boys : = count_boys + 1; end else begin growth_girls : = growth_girls + growth; count_girls : = count_girls + 1; end; end; if (count_boys = 0) then writeln('в классе нет мальчиков') else writeln('средний рост мальчиков: ', (growth_boys / count_boys): 0: 2); if (count_girls = 0) then writeln('в классе нет девочек') else writeln('средний рост девочек: ', (growth_girls / count_girls): 0: 2); end.