Найти наибольшее произведение двух элементов массива, указав их индексы - Pascal

Узнай цену своей работы

Формулировка задачи:

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

Решение задачи: «Найти наибольшее произведение двух элементов массива, указав их индексы»

textual
Листинг программы
max:=a[1]*a[2];
i1:=1;
i2:=2;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]*a[j]>max then
 begin
  max:=a[i]*a[j];
  i1:=i;
  i2;=j;
 end;

Объяснение кода листинга программы

  1. Устанавливается начальное значение максимального произведения двух элементов массива, равное произведению первого и второго элементов:
    • max = a[1]*a[2]
  2. Устанавливаются начальные значения индексов элементов массива, образующих максимальное произведение:
    • i1 = 1
    • i2 = 2
  3. Начинается вложенный цикл от 1 до n-1 включительно (i - от 1 до n-1):
    • Для каждого значения i выполняется вложенный цикл от i+1 до n включительно (j - от i+1 до n):
      • Если произведение a[i] и a[j] больше текущего максимального произведения:
      • Текущее максимальное произведение обновляется значением произведения a[i] и a[j]
      • Значения индексов элементов массива, образующих максимальное произведение, обновляются:
        • i1 = i
        • i2 = j

Оцени полезность:

15   голосов , оценка 4.267 из 5
Похожие ответы