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

Вопрос школьника по предмету Информатика

Помогите написать программу на Паскале

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

Ответ учителя по предмету Информатика

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.