Question

В массиве, заполненном произвольными целыми числами, найдите два числа, произведение которых максимально. Вложенные циклы не используйте. Помогите пж!!! на Паскале

Answer 1

//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;
    
    writeln(Math.Max(max, min));
end.