Найти произведение четных элементов массива - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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