задачка на масив.....решите кто то пожалуста

[Nikolja]

помогите пожалуста срочно завтра залик.....нужно решить две задачки на масиви.....прошу очень нужно


первая задача такая :
Дано входной одновимирной масив А(n) , что состаит  не менше как с 10елементов.Виходной масив получить , решить задачу ниже и вивести ети два масиви - входной и виходной в лист Exсel.
Задача:
Утворить новий масив что состаит с положительними и отрицательними елементами масиву А.


Задача номер 2:
Дано двомерний масив Х розмером mxn елементов
Розщитать сложение(тоїсть добуток) положительних елементов каждого рядка
вот так ми ето делали на паре:
Private Sub CommandButton1_Click()
n = InputBox("Vvestu klkist elementiv N")
ReDim A(n)
For i = 1 To n
A(i) = InputBox("Vvestu A(" & i & ")")
Next i
For i = 1 To n
Cells(2, i).Value = A(i)
Next i
Cells(1, 1) = "Vhidnyj"
Cells(1, 2) = "Masuv"
Cells(3, 1) = "Vyhidnyj"
Cells(3, 2) = "Masuv"
Amax = A(1): Amin = A(1)
Nmax = 1: Nmin = 1

For i = 2 To n
If Amax < A(i) Then Amax = A(i): Nmax = i
If Amin > A(i) Then Amin = A(i): Nmin = i
Next i
A(Nmax) = Amin
A(Nmin) = Amax
For i = 1 To n
Cells(4, i).Value = A(i)
Next i
End Sub

Private Sub CommandButton2_Click()
For i = 1 To 40
Cells(1, i) = ""
Cells(2, i) = ""
Cells(3, i) = ""
Cells(4, i) = ""
Next i
End Sub

Private Sub CommandButton3_Click()
End
End Sub