Question

Задан массив M(n).Определить произведение нечётных элементов(Basic)помогите плиз

Answer 1

Ответ:

Dim Massiv(9) as Integer ' Объявляем массив из 9 элементов

Dim Composition as Integer ' Результат произведения нечетных элементов массива

Dim index as Integer ' Индекс для доступа к элементам массива

' Заполняем массив случайными числами

For index = 0 to 9

   Massiv(index) = Rnd() * 5

   print Massiv(index) ' Вывод массива

Next

' Инициализируем переменную Composition

Composition = 1

For index = 0 to 9

   If Massiv(index) Mod 2 <> 0 Then  ' Если элемент не четный то выполнить произведение

        Composition = Composition * Massiv(index)

   End if

Next

print Composition ' Результат произведения