Найти произведение четных элементов массива - VB
Формулировка задачи:
Знаю,что легко,знаю,что самому надо,но всё же прошу помощи)
2.найти произведение четных элементов массива
надеюсь найдутся добрые люди и помогу мне.
Решение задачи: «Найти произведение четных элементов массива»
textual
Листинг программы
- Function Peven(X() As Integer, Optional p As Integer = 1, Optional i As Integer = 1) As Integer
- If i > UBound(X, 1) Then
- Peven = p
- ElseIf ((X(i) Mod 2) = 0) Then
- Peven = Peven(X, p * X(i), i + 1)
- Else
- Peven = Peven(X, p, i + 1)
- End If
- End Function
- Sub Test()
- Dim Z(1 To 5) As Integer
- Z(1) = 1
- Z(2) = 2
- Z(3) = 3
- Z(4) = 4
- Z(5) = 6
- Debug.Print Peven(Z)
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
