пусть вводится n чисел с клавиатуры определить кол-во нечетных чисел в массиве и произведение отрицательных чисел (составить программу на бейсике) СРОЧНО 98 БАЛЛОВ!!!

Sub Calculate()Dim coll As CollectionDim i As IntegerDim sum As DoubleDim negative As IntegerDim composition As Integernegative = 0composition = 1Set coll = New Collectionsum = 0n = CInt(InputBox("Введите количество чисел", "Ввод", "", 2000, 2000))For i = 1 To nelmnt = CInt(InputBox(i & " число", "Ввод", "", 2000, 2000))coll.Add elmntsum = sum + elmntNext iFor i = 1 To coll.CountIf (coll.Item(i) < 0) Thennegative = negative + 1End IfIf (coll.Item(i) Mod 2 = 1) Thencomposition = composition * coll.Item(i)End IfNext iMsgBox "Количество отрицательных = " & negative & vbCrLf & "Произведение нечетных = " & composition & vbCrLf, vbOKOnly, "Результаты"End Sub