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