Question

Дана матрица а (4, 5) 2, 3, -5, -10, 7 4, -10, -3, 2, 4 5, -2, -7, 11, -13 18, 19, -2, -4, -7 из нее образовать две матрицы: в одной оставить все отрицательные элементы матрицы а (на месте положительных элементов поставить ноль), в другой оставить все положительные элементы (на месте отрицательных поставить ноль). написать программу в vba excel

Answer 1

Sub Main()
Dim A(1 To 4,1 To 5) As Integer, B(1 To 4,1 To 5) As Integer, C(1 To 4,1 To 5) As Integer, i as Integer, j as Integer

'Здесь устанавливаются элементы матрицы A

For i=1 to 4
For j=1 to 5
    If A(i,j)>0 Then
        B(i,j)=A(i,j)
        C(i,j)=0 'Хотя это необязательно, все элементы изначально нулевые
    Else
        B(i,j)=0
        C(i,j)=A(i,j)
    End If
Next j
Next i

'Вывести матрицы B и C

End Sub