Задача с использованием массива

[User01]

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

[mss]

Приступай к разработке программы.
Возникнут конкретные трудности - поможем.

[veniside]

program
  myArray;

begin
end.

идея, думаю, понятна.

[User01]

Сообщение от mss

Приступай к разработке программы.
Возникнут конкретные трудности - поможем.

Я не пойму как найти максимальную сумму последних цифр пары чисел

[veniside]

sum := A[i] mod 10 + A[i] mod 100 div 10;

найти максимальную — пройтись по всему массиву и сравнивать с переменной, которая хранит текущий максимум, обновляя её по мере сравнений.

[User01]

Сообщение от veniside

sum := A[i] mod 10 + A[i] mod 100 div 10;

найти максимальную — пройтись по всему массиву и сравнивать с переменной, которая хранит текущий максимум, обновляя её по мере сравнений.

Спасибо большое, все получилось.