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