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

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

5 голосов , оценка 4.2 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы