Вычислить произведение элементов массива, имеющих нечётный номер - VB
Формулировка задачи:
Имеется одномерный массив X(N). Вычислить произведение элементов массива, имеющих нечётный номер. Массив X(N) вывести на печать.
Эй, програмисты!)) Для вас я думаю это не так-то и сложно)) А мне очень надо))
Решение задачи: «Вычислить произведение элементов массива, имеющих нечётный номер»
textual
Листинг программы
Dim x%(9) p = 1# For i = LBound(x) To UBound(x) x(i) = Fix(Rnd * 20 - 5) If i Mod 2 = 1 Then p = p * x(i) Print x(i) Next Print p