Система объектов эргономики имеет

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

function Min(a:array of integer):=a.Min;

procedure Max(a:array of integer; var mx,imx:integer);
begin
  imx:=a.IndexMax; mx:=a[imx]; imx+=1;
end;

begin
  var a:=ReadArrInteger('А:',5);
  var b:=ReadArrInteger('B:',7);
  var c:=ReadArrInteger('C:',9);
  var emax,imax,gmax,lmin:integer;
  gmax:=Min(a);
  Max(a,emax,imax); Writeln('A: min=',gmax,', маx=',emax,' [',imax,']');
  lmin:=Min(b);
  Max(b,emax,imax); Writeln('B: min=',lmin,', маx=',emax,' [',imax,']');
  gmax:=Max(gmax,lmin);
  lmin:=Min(c);
  Max(c,emax,imax); Writeln('C: min=',lmin,', маx=',emax,' [',imax,']');
  gmax:=Max(gmax,lmin);
  Writeln('Максимальный из минимумов равен ',gmax)
end.

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  var x:=ArrRandom(n,-5,25); x.Println;
  var y:=ArrRandom(n,-5,25); y.Println;
  var z:=x.Zip(y,(p,q)->p-q).ToArray; z.Println;
  var s:=z.Sum;
  var c:=s<0 ? 'отрицательный' : s=0 ? 'отсутствует' : 'положительный';
  Writeln('Сумма равна ',s,', знак суммы ',c)
end.

Пример
n= 13
2 -5 24 3 23 22 -3 6 -3 -2 9 25 8
17 9 11 8 0 -2 -2 2 25 19 16 21 -4
-15 -14 13 -5 23 24 -1 4 -28 -21 -7 4 12
Сумма равна -11, знак суммы отрицательный