подкорректируйте пожалуйста программу, не могу найти ошибку.

Question

дана матрица C(i, j) i=1,2,3,4,5 j=1,2,3,4,5

надо найти все положительные C(i, j)

Sub z4p2()

Dim c(5, 5)

For i = 1 To 5

For j = 1 To 5

c(i, j) = Cells(i, j)

If c(i, j) < 0 Then

Cells(i, j + 6) = c(i, j)

End If

Next j

Next i

End Sub

Алла Долинская · Accepted Answer

в
If c(i, j) < 0 Then
перепутан знак. Надо не "<", а ">".

и! Массив c(i,j) тут совсем лишний, только трата памяти.
достаточно
If Cells(i, j) > 0 Then
Cells(i, j + 6) = Cells(i, j)
End If

Светлана Морозова · Answer

If c(i, j) > 0 Then