Вопрос, который вызвал трудности

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

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

//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.