Question

Задана последовательность целых чисел. Вычислить К отрицательных,положительных чисел и определить каких чисел больше.
2 вычислить min,max числа и определить какое из них по модолю наименьше.

Answer 1

// 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)<Abs(max) then Writeln('Модуль минимума меньше')
  else
    if Abs(max)<Abs(min) then Writeln('Модуль максимума меньше')
    else Writeln('Модули максимума и минимума равны')
end.