Visual Basic

[Elifas]

Помогите пожалуйста, от этой лабораторной зависит зачёт

Не разбираюсь в програмировании, поэтому вынужден обратиться к вам. Хотя бы операторы скажите, с помощью которых данную программу написать можно.

"Дана произвольной длины последовательность целых чисел. Найти произведение чисел, абсолютная величина которых не превосходит 10, наибольшее из таких чисел, и номер этого числа в последовательности"

Заранее спасибо)

[EUGY]

Как-то так.

'абсолютная величина не превосходит
Const maxval As Integer = 10
Randomize
' массив случайной длины
ReDim S(10 * Rnd + 2) As Long
' занести в массив случайные значения от ~ -50 до 50
For i = 0 To UBound(S)
    S(i) = (100 * Rnd) - 50
Next
' максимальное число, с абсолютным значением не превышающим maxval
Dim mx As Long
' индекс в массиве максимального числа
Dim idx As Integer
' произведение чисел с абсолютным значением не превышающим maxval
Dim pr As Long
pr = 1
idx = -1

For i = 0 To UBound(S)
    Debug.Print S(i)
    If Abs(S(i)) <= maxval Then
      pr = pr * S(i)
      If Abs(mx) < Abs(S(i)) Then
          mx = S(i)
          idx = i
      End If
    End If
Next

If idx = -1 Then
   Debug.Print "В массиве нет данных удовлетворяющих условию задачи"
Else
   Debug.Print "Произведение: " & pr & " Максимальное c модулем <= 10 : " & mx & " Индекс: " & idx
End If

[Elifas]

Это через массивы сделано?