В массиве x(n) определить произведение элементов, значение которых кратны пяти. - VB

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

Подскажите,как составить массив?он должен быть сделан при помощи rnd.. В массиве x(n) определить произведение элементов,значение которых кратны пяти.

Решение задачи: «В массиве x(n) определить произведение элементов, значение которых кратны пяти.»

textual
                            Листинг программы 
                        

                            P = 1
For i = 0 to N - 1
If x(i) MOD 5 = 0 then
P = P * x(i)
End If
Next
 
If P <> 1 then 
Print "Произведение элементов, кратных пяти = ", P
Else
Print "Искомых элементов нет"
End If
...
                        

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

9 голосов , оценка 4 из 5

Похожие ответы