Нужно сжать массив, удалив отрицательные элементы - VB
Формулировка задачи:
Нужно сжать массив, удалив отрицательные элементы, в условие A(i) = " " выходит ошибка. Помогите составить правильное условие
Решение задачи: «Нужно сжать массив, удалив отрицательные элементы»
textual
Листинг программы
Private Sub Command1_Click()
Cls
n = 10
ReDim A(1 To n)
For i = 1 To n
A(i) = Int(Rnd * 11) - 5
Next i
pr A()
sm A(), 1, k
If k = 0 Then
Print "{0}"
Else
ReDim Preserve A(1 To k)
pr A()
End If
End Sub
Sub pr(A())
For i = LBound(A) To UBound(A)
Print A(i); " ";
Next i
Print
End Sub
Sub sm(A(), m, k)
If m > UBound(A) Then Exit Sub
If A(m) >= 0 Then
k = k + 1: A(k) = A(m)
End If
sm A(), m + 1, k
End Sub