Question

Помогите пожалуйста!!!Составить блок-схему и написать на VBA функцию, вычисляющую для одномерного массива количество элементов, чьи номера кратны 3 (а(3), a(6), a(9)…)

Answer 1

Function Strange(a() As Integer) As Integer
    Dim n As Integer, i As Integer
    n = 0
    For i = LBound(a) To UBound(a)
        If i Mod 3 = 0 Then n = n + 1
    Next i
    Strange = n
End Function