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

Нюра

Ответ:
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 ' Результат произведения