Создать процедуру на языке VBA
Дана последовательность целых чисел a1,…a45. Получить число отрицательных элементов последовательности a1,…a35 и число нулевых элементов всей последовательности.

Требуемая процедураSub ex1(ByRef a() As Integer, ByRef nn As Integer, ByRef nz As Integer)    Dim i As Integer    nn = 0: nz = 0    For i = 1 To 45        If a(i) = 0 Then            nz = nz + 1        Else            If a(i) < 0 And i <= 35 Then                nn = nn + 1            End If        End If    Next iEnd SubПроцедура для тестирования с выводом на лист ExcelSub Test()    Dim p(1 To 45) As Integer    Dim n1 As Integer, n2 As Integer, i As Integer    Randomize Timer    For i = 1 To 45        p(i) = Int(25 * Rnd - 12)        Cells(i, 1) = p(i)    Next i    ex1 p, n1, n2    Cells(1, 2) = n1    Cells(1, 3) = n2End Sub