Задана последовательность целых чисел. Вычислить К отрицательных,положительных чисел и

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

1

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  var kp:=a.Where(t-gt;tgt;0).Count;
  var kn:=a.Where(t-gt;tlt;0).Count;
  Writeln('Положительных ',kp,', отрицательных ',kn);
  if kpgt;kn then Writeln('Положитьельныъ больше')
  else
    if kngt;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)lt;Abs(max) then Writeln('Модуль минимума меньше')
  else
    if Абс(max)lt;Абс(min) then Writeln('Модуль максимума меньше')
    else Writeln('Модули максимума и минимума одинаковы')
end.