ВЫПОЛНИМ ВМЕСТЕ ескую нителье е, позво верка 2 і запис Рассмотрим простой пример: деление двух чисел. Выделите произвольную ячейку, например А1. В строке формул вве- дите знак «=», затем введите выражение 100/5. Нажмите Enter. В ячей- ке появится результат 20 (рис. 3.21 А в строке формул отобразится сама ию, то формула =100/5. я

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.