Здраствуйте. У меня есть задача на языке VBA.
Упорядочить строку с максимальным количеством положительных элементов в двумерном массиве A(n, n). Пример решения таков:
| Код |
Dim mas(n, n) As Integer
Dim i as integer, j As Integer, x As Integer, y As Integer, k As Integer
For i = 1 To n
For j = 1 To n
mas (i, j) = Cells (i + 1, j + 1)
Next j
Next i
max = mas (1, 1)
For i = 1 To n
For j = 1 To n
If max<= mas(i, j) Then
max = mas (i, j)
k=i
End If
Next j
Next i
...
|
Помогите пожалуста правильно составить код. Заранее благодарен. |