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

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

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

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

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.200 из 5


СОХРАНИТЬ ССЫЛКУ