Помогитите пожалуйста с одномерными массивами решить задачу

KnRSU · Конфигурация компьютера

vivat, наслаждайтесь

Код:

Function GetCountEvenItems(ByRef An() As Double) As Long
Dim evenCount As Long
Dim i As Long
    evenCount = 0
    For i = 0 To UBound(An)
        If (An(i) / 2 - An(i) \ 2) = 0 Then
            evenCount = evenCount + 1
        End If
    Next i
    GetCountEvenItems = evenCount
End Function

Function MinimumOfSumNearlessItems(ByRef An() As Double) As Double
Dim minSumNearlessItems As Double
Dim i As Long
    minSumNearlessItems = (An(0) + An(1))
    For i = 1 To UBound(An)
        If (An(i - 1) + An(i)) < minSumNearlessItems Then
            minSumNearlessItems = (An(i - 1) + An(i))
        End If
    Next i
    MinimumOfSumNearlessItems = minSumNearlessItems
End Function

Function Maximum(ByRef An() As Double) As Double
Dim maxItem As Double
Dim i As Long
    maxItem = An(0)
    For i = 0 To UBound(An)
        If An(i) > maxItem Then
            maxItem = An(i)
        End If
    Next i
    Maximum = maxItem
End Function

Sub TestStart()
Dim tmp() As Double
Dim n As Long
Dim i As Long
    'Общая инициализация массива An
    Randomize
    n = Val(Rnd() * 100 & "")
    ReDim tmp(n)
    For i = 0 To n
        tmp(i) = Val((Rnd() * 100)) * IIf((Rnd() * 100) > 50, 1, -1)
    Next i
    'Массив в окно Immediate (для проверки правильности)
    For i = 0 To n
        Debug.Print "Элемент: A" & i & " = " & tmp(i)
    Next i
    'Вариант_А
    'Результат в окно Immediate (вызывается по нажатию Ctrl+G)
    Debug.Print "Максимальный элемент массива: " & Maximum(tmp())
    'Вариант_Б
    'Результат в окно Immediate (вызывается по нажатию Ctrl+G)
    Debug.Print "Минимальная сумма соседних элементов массива: " & MinimumOfSumNearlessItems(tmp())
    'Вариант_В
    'Результат в окно Immediate (вызывается по нажатию Ctrl+G)
    Debug.Print "Количество четных элементов в массиве: " & GetCountEvenItems(tmp())
End Sub

Результат одного из запусков рядышком