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.
Uses GraphABC; var x, y: word; i: byte; begin SetBrushStyle(bsclear); SetWindowWidth(590); SetWindowHeight(390); Rectangle(5, 5, 585, 385); x := 25; y := 25; Circle(565, 25, 20); Circle(565, 365, 20); Circle(25, 365, 20); repeat Circle(x, y, 20); if (x < 565) and (y = 25) then x := x + 20; if (x = 565) and (y < 365) then y := y + 20; if (y = 365) and (x > 25) then x := x - 20; if (x = 25) and (y > 25) then y := y - 20; until (x = 25) and (y = 25);
Rectangle(50, 50, 540, 340); x := 115; for i := 1 to 8 do begin Circle(x, 210, 6); Circle(x, 210, 40); Circle(x, 210, 45); x := x + 51; end; x := 95; for i := 1 to 11 do begin y := 130; Line(x, y, x, y - 30); y := y - 30; Line(x, y, x + 30, y); x := x + 30; Line(x, y, x, y + 25); y := y + 25; Line(x, y, x - 20, y); x := x - 20; Line(x, y, x, y - 15); y := y - 15; Line(x, y, x + 10, y); x := x + 10; Line(x, y, x, y + 8); y := y + 8; Line(x, y, x - 3, y); x := x - 3; Line(x, y, x, y - 4); y := y - 4; Line(x, y, x - 3, y); x := x - 3; Line(x, y, x, y + 7); y := y + 7; Line(x, y, x + 10, y); x := x + 10; Line(x, y, x, y - 15); y := y - 15; Line(x, y, x - 18, y); x := x - 18; Line(x, y, x, y + 24); y := y + 24; Line(x, y, x + 30, y); x := x + 30; end; end.
А=А-В= 4-3=1
В=В-А=-1
Объяснение: