//PascalABC.NET версия 3.3.1590 от 03.12.2017 //Если программа не запускается, то обновите версию uses System; begin var a := ArrRandomInteger(100, -100, 100); Println(a); var max := a.Max(); a[a.IndexMax()] := 0; max := max * a.Max();
var min := a.Min(); if (min < 0) then begin a[a.IndexMin()] := 0; min := min * a.Max(); end;
//Если программа не запускается, то обновите версию
uses System;
begin
var a := ArrRandomInteger(100, -100, 100);
Println(a);
var max := a.Max();
a[a.IndexMax()] := 0;
max := max * a.Max();
var min := a.Min();
if (min < 0) then begin
a[a.IndexMin()] := 0;
min := min * a.Max();
end;
writeln(Math.Max(max, min));
end.