Найти произведение четных элементов,значение которых меньше 5 - VB

Узнай цену своей работы

Формулировка задачи:

условие такое: Дан массив целых чисел из N элементов,заполненый случайным образом числами из промежутка(-10;20). Найти: 1) Произведение четных элементов,значение которых меньше 5 2)Кол-во элементов,которые нечетные и по модулю больше числа К 3)Найти номер последней пары соседних элементов,сумма которых больше числа К
Проблема в том,что в первом выводит нужные элементы,но произведение равно числу,которое больше(четных например 2 и -2,по идее произведение=-4,выводит же 16) И еще,как можно сделать так,чтобы количество элементов N и число К я могла вводить вручную(в текстовое поле например)?

Решение задачи: «Найти произведение четных элементов,значение которых меньше 5»

textual
Листинг программы
If A(i) mod 2 = 0 Then 'элемент четный
If A(i) mod 2 > 0 Then 'элемент нечетный

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


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

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

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