с 1 или 2 заданием очень вас если вам не сложно то сразу и 1 и 2

Const
  nn=50; // максимальное количество учеников
var
  i,n,sm,sd,km,kd:integer;
  am,ad:real;
  var a:array[1..nn] of integer;
begin
  Write('Введите количество учеников: ');
  Read(n);
  Writeln('Введите рост учеников');
  sm:=0; sd:=0; km:=0; kd:=0;
  for i:=1 to n do
    begin
    Read(a[i]);
    if a[i]>0 then begin sd:=sd+a[i]; Inc(kd) end
    else begin sm:=sm-a[i]; Inc(km) end
    end;
  am:=sm/km; ad:=sd/kd;
  Write('Средний рост мальчиков (',am:0:1,') ');
  if am-ad<=10 then Write('не ');
  Writeln('превышает средний рост девочек (',ad:0:1,') ');
  Writeln('больше, чем на 10 см')
end.
   
Примерное решение

Введите количество учеников: 9
Введите рост учеников
-192 165 -174 179 -172 171 169 170 -170
Средний рост мальчиков (177.0) не превышает средний рост девочек (170.8)
больше, чем на 10 см

использовать Чертежник

алг Слон

  нач

  опустить перо

  сместиться на вектор(2, 0)

  сместиться на вектор(0, 2)

  сместиться на вектор(1, 0)

  сместиться на вектор(0, -2)  

  сместиться на вектор(2, 0)

  сместиться на вектор(0, 2)

  сместиться на вектор(1, 1)

  сместиться на вектор(0, 2)

  сместиться на вектор(1, -2)

  сместиться на вектор(-1, 2)

  сместиться на вектор(-1, 1)

  сместиться на вектор(-3, 0)

  сместиться на вектор(-1, 1)

  сместиться на вектор(-1, 0)

  сместиться на вектор(-1, -2)

  сместиться на вектор(-1, 0)

  сместиться на вектор(0, 3)

  сместиться на вектор(-1, 0)

  сместиться на вектор(0, -3)

  сместиться на вектор(1, -1)

  сместиться на вектор(2, -1)

  сместиться на вектор(0,-3)

  поднять перо

  сместиться на вектор(1, 3)

  опустить перо

  сместиться на вектор(1, 1)

  сместиться на вектор(0, 2)

  поднять перо

  сместиться на вектор(-2, -1)

  опустить перо

  сместиться на вектор(-0.1, 0.1)

  сместиться на вектор(-0.1, -0.1)

  сместиться на вектор(0.1, -0.1)

  сместиться на вектор(0.1, 0.1)

  поднять перо

  сместиться на вектор(0, -5)

кон

Объяснение: