Заменить максимальный элемент массива средним значением всех его элементов. Язык VBA

Предыдущий
вопрос Следующий
вопрос

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).