Найти произведение массива целых чисел , меньших 0 .Итоговая работа . - VB
Формулировка задачи:
Итоговая работа .
Текст:
Найти произведение всех элементов массива целых чисел, меньших 0. Размерность массива - 10 . Заполнение массива осуществить с клавиатуры .
P.S. Пожалуйста постарайтесь написать ответ до завтра . Заранее благодарен .
Решение задачи: «Найти произведение массива целых чисел , меньших 0 .Итоговая работа .»
textual
Листинг программы
dim a (1 to 10)
p=1
for i=1 to 10
a(i)=val(inputbox("Введи элемент №" & i))
if a(i)<0 then p=p*a(i) : print a(i) , p
next i