Дана последовательность чисел А(20) в диапазоне от -10 до 10. Найти произведение всех нечетных чисел - VB
Формулировка задачи:
Дана последовательность чисел А(20) в диапазоне от -10 до 10. Найти произведение всех нечетных чисел.
Решение задачи: «Дана последовательность чисел А(20) в диапазоне от -10 до 10. Найти произведение всех нечетных чисел»
textual
Листинг программы
For I = 1 To UBound(A) A(I) = -11 + I