16
Март
2011
Определить количество значений отрицательных элементов массива
Определить количество значений отрицательных элементов массива
Private Sub ()
Dim V() As Integer
Dim K As Integer
Dim P As Double
Dim N, i As Integer
N = InputBox("Введите число элементов массива")
' i = 1 'не обязательно
ReDim V(1 To N)
K = 0
P = 1
' V(i) = Int(Rnd * 100) - не здесь, так как не в цикле
For i = 1 To N
V(i) = Int((Rnd-0.5) * 100) 'а вот здесь, в цикле. диапазон результатов -50...+50
If V(i) < 0 Then
K = K + 1
P = P * V(i)
Else ' не нужно else, можно убрать
End If
Next i
MsgBox "Число отрицательных элементов: " & K & vbNewLine & "их произведение " & P
End Sub