Как найти максимальное и ПРЕДМАКСИМАЛЬНОЕ число кратное двум в массиве? Нужен код (Паскаль)ВАЖНОЕ условие:И максимальное и предмаксимальное нужно найти одним циклом!!!

// PascalABC.NET

Насколько я понял, предмаксимальное число не может быть равно максимальному, даже если в массиве два и более максимальных элементов. Если это не так, удалите условие