Ввести положительные и отрицательные элементы квадратной матрицы и перезаписать все положительные элементы в одномерный массив. Вывести одномерный массив.

  А вы нес можете мне ещё с эти помочь пожалуйста?

нет это не могу

а вот с таким не поможете пожалуйста? Организовать ввод 10 положительных и отрицательных чисел.Вычислить произведение положительных и сумму отрицательных числе VB 

Dim k As Integer, i As Integer, p As Integer, sum As IntegerDim s As Stringp = 1For j = 1 To 4k = InputBox("Введите элемент")If k > 0 Then p = p * kIf k < 0 Then sum = sum + ks = s & k & " "NextMsgBox "чисела " + sMsgBox ("произведение положительных числ " & p)MsgBox ("сумма отрицательных числ " & sum)End Sub

Спасибо огромное)