Sub ReplaceMaxWithAverage()
Dim arr() As Integer
Dim total As Integer
Dim avg As Double
Dim max As Integer
Dim maxIndex As Integer
' Пример инициализации массива
arr = Array(5, 10, 15, 20, 25)
' Находим сумму всех элементов массива
For i = LBound(arr) To UBound(arr)
total = total + arr(i)
' Находим максимальный элемент и его индекс
If arr(i) > max Then
max = arr(i)
maxIndex = i
End If
Next i
' Вычисляем среднее значение
avg = total / (UBound(arr) - LBound(arr) + 1)
' Заменяем максимальный элемент средним значением
arr(maxIndex) = avg
' Выводим измененный массив
For i = LBound(arr) To UBound(arr)
Debug.Print arr(i)
Next i
End Sub

Примечание: данная процедура заменяет максимальный элемент массива на среднее значение всех его элементов. Для работы с конкретным массивом необходимо инициализировать его значения в строке arr = Array(5, 10, 15, 20, 25).