Тема: Даны два массива. Сформировать массив, содержащий отриц. числа
Есть два массива. Нужно сделать третий массив, который состоит только из отрицательных чисел. Как это сделать?
P и K это количество отрицательных чисел в каждом массиве. Z - общее количество отриц. чисел. Но вот дальше не знаю.. Завтра защита в универе. Помогите, пжл
Sub Pan_6()
Cells.ClearContents
Dim p As Byte
Const M = 10
Const N = 5
Dim A(1 To M) As Double
Dim B(1 To N) As Double
Dim i As Byte
Dim j As Byte
For i = 1 To M
A(i) = InputBox("Введите элемент массива A(" & i & ")")
Cells(2, 1 + i).Value = A(i)
Cells(1, 1 + i).Value = "A(" & i & ")"
Next i
For j = 1 To N
B(j) = InputBox("Введите элемент массива B(" & j & ")")
Cells(4, 1 + j).Value = B(j)
Cells(3, 1 + j).Value = "B(" & j & ")"
Next j
k = 0
For i = 1 To M
If A(i) < 0 Then
k = k + 1
End If
Next i
p = 0
For j = 1 To N
If B(j) < 0 Then
p = p + 1
End If
Next j
z = p + k