Давайте разберёмся, как можно найти два числа в массиве, произведение которых будет максимальным, без использования вложенных циклов. Это можно сделать, если мы будем искать два наибольших числа в массиве. Вот шаги, которые помогут вам решить эту задачу:

1. Инициализация переменных: Создайте две переменные для хранения двух наибольших чисел. Назовём их max1 и max2. Изначально присвойте им минимально возможные значения (например, 0 или -MaxInt).
2. Проход по массиву: Пройдите по всем элементам массива, сравнивая каждое число с max1 и max2.
3. Обновление значений: Если текущее число больше max1, то обновите max2 значением max1, а max1 присвойте текущее число. Если текущее число меньше max1, но больше max2, то просто обновите max2.
4. Расчёт произведения: После завершения прохода по массиву, произведение двух наибольших чисел будет равно max1 * max2.

Теперь давайте посмотрим, как это можно реализовать на языке Паскаль:

program MaxProduct;

var
    arr: array[1..100] of Integer; // массив с числами
    n, i: Integer;
    max1, max2: Integer;

begin
    // Вводим размер массива
    Write('Введите количество элементов в массиве: ');
    ReadLn(n);

    // Вводим элементы массива
    WriteLn('Введите элементы массива:');
    for i := 1 to n do
    begin
        Read(arr[i]);
    end;

    // Инициализация max1 и max2
    max1 := -MaxInt;
    max2 := -MaxInt;

    // Поиск двух наибольших чисел
    for i := 1 to n do
    begin
        if arr[i] > max1 then
        begin
            max2 := max1; // предыдущее max1 становится max2
            max1 := arr[i]; // обновляем max1
        end
        else if arr[i] > max2 then
        begin
            max2 := arr[i]; // обновляем max2
        end;
    end;

    // Вывод результата
    WriteLn('Два числа с максимальным произведением: ', max1, ' и ', max2);
    WriteLn('Максимальное произведение: ', max1 * max2);
end.

Таким образом, мы нашли два числа, произведение которых будет максимальным, за один проход по массиву, что делает алгоритм эффективным.