Определить произведение нечетных элементов заданного массива - VB
Формулировка задачи:
Задать количество элементов одномерного массива. Заполнить его числовыми значениями. Определить произведение нечетных элементов заданного массива.
Решение задачи: «Определить произведение нечетных элементов заданного массива»
textual
Листинг программы
Private Sub Form_Load()
Dim Arr, v, r As Double, i As Long
For Each v In Split(InputBox("")): r = IIf(i, IIf(i And 1, r * v, r), v): i = i + 1: Next
MsgBox r
End Sub