Помогите найти максимальный элемент массива VBA

[МаринаМарина]

Ввести массив А(N). Найти максимальный элемент массива. Среднее геометрическое уменьшить на максимальный элемент массива.