Проверьте пожалуйста - VB
Формулировка задачи:
Решение задачи: «Проверьте пожалуйста»
textual
Листинг программы
Private Sub Command2_Click()
Dim A() As Integer, i As Integer, n As Integer, k As Integer, s As String
'n = Val(Text1.Text)
n = Val(InputBox("Введите размер массива (N)", "Ввод данных", 5))
ReDim A(1 To n)
Randomize
For i = 1 To n
A(i) = Val(InputBox("Введите A(" & i & ")", "Ввод данных", Int(Rnd * 21 - 10)))
s = s & A(i) & " " 'vbTab
If A(i) < 0 Then k = k + 1
Next i
MsgBox "Массив:" & vbCrLf & s & vbCrLf & "Отрицательных чисел в массиве: " & k
End Sub