Создание массива

[Катя100]

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

Массив нужно создать с помощью генератора случайных чисел(rnd).

[Stilet]

Наработки и попытки есть?

[rrrFer]

int p = 1;
for_each(x, x + n, [&p](auto t) { if (0 == t % 5) p *= t; });

осталось заполнить

[Катя100]

Вот моя попытка..

Dim p As Single, n As Single, x() As Integer
Private Sub Command1_Click()
For n = 1 To 10
x(n) = Rnd(1)
List1.AddItem x(n)
Next
p = 1
For n = 0 To n - 1
If x(n) Mod 5 = 0 Then
p = p * x(n)
End If
Next
 
If p <> 1 Then
Print "Произведение элементов, кратных пяти = ", p
Else
Print "Искомых элементов нет"
End If
End Sub

[Son Of Pain]

For n = 0 To n - 1

Ничего в этой строке тебя не смущает? )

[Stilet]

Это: For n = 0 To n - 1
замени на For n = 1 To 10