// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

№1

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  var kp:=a.Where(t->t>0).Count;
  var kn:=a.Where(t->t<0).Count;
  Writeln('Положительных ',kp,', отрицательных ',kn);
  if kp>kn then Writeln('Положитьельныъ больше')
  else
    if kn>kp then Writeln('Отрицательных больше')
    else Writeln('Положительных и отрицательных поровну')
end.

№2

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  var (min,max):=(a.Min,a.Max);
  Writeln('Минимум ',min,', максимум ',max);
  if Abs(min)  else
    if Abs(max)    else Writeln('Модули максимума и минимума равны')
end.