Определить сумму элементов массива N, которые кратны трём - VB

Узнай цену своей работы

Формулировка задачи:

Помогите пожалуйста определить сумму элементов массива N, которые кратны трём, (ni/3)*3=3 Заранее СПАСИБо!

Решение задачи: «Определить сумму элементов массива N, которые кратны трём»

textual
Листинг программы
Function SumK3(A() As Integer, n As Integer) As Integer
     If (n = UBound(A, 1)) Then
        SumK3 = IIf((A(n) Mod 3) = 0, A(n), 0)
     Else
        SumK3 = IIf((A(n) Mod 3) = 0, A(n), 0) + SumK3(A, n + 1)
     End If
End Function
Sub Main()
Dim A(1 To 5) As Integer
     A(1) = 3
     A(2) = 5
     A(3) = 18
     A(4) = 20
     A(5) = 30
     Debug.Print SumK3(A(), 1)
End Sub

Оцени полезность:

5   голосов , оценка 4.2 из 5
Похожие ответы