Найти произведение массива целых чисел , меньших 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д