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

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;<br>  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.