Найти произведение массива целых чисел , меньших 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 4.222 из 5
Похожие ответы