Ребята, помогите, пожалуйста, с задачей.Решить нужно в течение этой ночи)
Даны два числовых массива A(N) и B(M). Получить из них новый отсортированный массив, выбрав в него только отрицательные элементы.
Вот массив с отрицательными числами:
| Код |
Dim A() As Integer
Dim B() As Integer
Dim C() As Integer
Dim k, n, i As Integer
Private Sub cmdRun_Click()
n = Val(InputBox("Введите N"))
ReDim A(n)
k = 0
ReDim C(k)
For i = 1 To n
A(i) = Val(InputBox("Введите эл-ты массива A"))
If A(i) < 0 Then k = k + 1: ReDim C(k): C(k) = A(i)
Next i
M = Val(InputBox("Введите M"))
ReDim B(M)
For i = 1 To M
B(i) = Val(InputBox("Введите эл-ты массива B"))
If B(i) < 0 Then k = k + 1: ReDim C(k): C(k) = B(i)
Next i
End Sub
|
А загвоздка в этом-как отсортировать этот массив, желательно методом подсчёта?
|
