Kristusha а массив меняет свой размер может быть не только 20 элементов
ты хочешь просто подсказку или чтобы за тебя сделали

если у тебя массив из 20 элементов и это не изменяется
то заранее знаешь все простые числа в пределе от 1 до 20
их 9
1 2 3 5 7 11 13 17 19
их можно хранить в отдельном массиве
с индексами от 1 до 9

когда нужно перемножить
то в цикле от 1 до 9
умножаем (надеюсь ты знаешь как делать и числа не очень большие)
все числа из первого массива

L=1
for i=1 to 9
L=L*Arr1(Arr2(i))
next i

если размер массива может менятся то нужно получить
список всех простых чисел в заданном интервале и сохранить в динамическом массиве
(можно использовать решето Эрасфена
описание этого алгоритма куча на любом языке)

и потом умножать по такому же принципу

это первая часть
продолжение следует ...

а вашему преподу нужно голову оторвать если он так обучает

а что мне за это будет ??

Решето Эратосфена для нахождения простых чисел

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Процедура заполняет массив P простыми числами меньшими n,
'элемент массива является последним, если следующий за ним
'элемент равен 0.
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Sub EratosthenesSieve(ByRef N As Long, ByRef P() As Long)
Dim C As Boolean
Dim I As Long
Dim J As Long
Dim K As Long
Dim R As Long
Dim S As Double

If N>200# then
R = Fix(N/(Log(N)-2#)+1#)
Else
R = Fix(1.6*N/Log(N)+1#)
End If
ReDim P(1# To R)
P(1#) = 1#
P(2#) = 2#
P(3#) = 3#
i = 4#
Do
P(i) = 0#
i = i+1#
Loop Until Not i<=r
j = 3#
k = 3#
Do
i = 2#
s = Sqr(k)
c = True
Do
i = i+1#
If P(i)>S then
P(j) = k
j = j+1#
c = False
End If
Loop Until Not (Fix(k/P(i))*P(i)<>K And C)
k = k+2#
Loop Until Not k<=n
End Sub

ну это в другом разделе

Кристина

надеюсь понятны мои обьяснения
всё до воскресения

Кристина как дела
Как продвижение

У тебя размер массива меняется ??
если нет сделалй так

Private Sub AAA()
Dim Arr1(20) As Integer
Dim Arr2(9) As Integer
Dim i As Integer
Dim l As Long


внести 20 значений в массив Arr1

Arr2(1) = 1
Arr2(2) = 2
Arr2(3) = 3
Arr2(4) = 5
Arr2(5) = 7
Arr2(6) = 11
Arr2(7) = 13
Arr2(8) = 17
Arr2(9) = 19

l = 1

For i = 1 To 9
l = l * Arr1(Arr2(i))
Next i

MsgBox l
End Sub

это без решета


простые числа это которые делятся на 1 и на само число без остатка

Если надо с решетом и с изменяемым массивом
напиши
обьясню

можно задать второй массив очень-очень большого размера на несколько десятков тысяч значений
и перегнать все простые числа для какого то большого интервала
а дальше действовать по аналогии только цикл должен менять параметры в зависимости от
первого массива

решето можно реализовать по разному
можно цикл в цикле
и проверять что число простое
проверка на остаток от деления