Требуемая процедура 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 i End Sub
Процедура для тестирования с выводом на лист Excel Sub 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) = n2 End Sub
Свойства: Корпус: размеры 368 x 367 x 393 мм, встроенный блок питания 450 Вт, черный Материнская плата: совместимость с процессорами Intel, оперативная память DDR4, интегрированная графика, 4 выхода USB 2.0, 2 выхода USB 3.0 Процессор: 2 ядра, 3.30 ГГц, техпроцесс 14 нм Жесткий диск: 1 Тб, 7200 об/мин, скорость чтения/записи 200/150 Мб/с, среднее время поиска 14 мс Оперативная память: DIMM DDR4, 4 Гб, частота 2133 МГц Монитор: жк 21,5'', контрастность 1000:1, время отклика 5 мс, черный Клавиатура: проводная, черная, USB Мышь: проводная, черная, USB
У данной видеокарты 8 GB