ТП
Татьяна Попова
подкорректируйте пожалуйста программу, не могу найти ошибку.
дана матрица 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