Предыдущая страница реферата | 1  2  3  4  5  6  7  8 | Следующая страница реферата

For j = 1 To n x = A(1, j) 'min

Sheet4.Cells(j + 4, 7) = j

For i = 2 To n

If x > A(i, j) Then x = A(i, j)

End If

Next i

Sheet4.Cells(j + 4, 9) = x

Next j
End Sub
Sub rab5(n As Variant)

Call getA

Sheet4.Activate

Call InitS

Sheet4.Range("H3") = "Max элементы по строкам"[pic]

Sheet4.Range("G4") = "Строка"

Sheet4.Range("H4") = "Max"

For i = 1 To n s = A(i, 1) 'max

Sheet4.Cells(i + 4, 7) = i

For j = 2 To n

If s

End If

Next j

Sheet4.Cells(i + 4, 9) = s

Next i
End Sub

Sub rab6(n As Variant)

Call getA

Sheet4.Activate

Рекомендуем скачать другие рефераты по теме: 5 баллов, чс реферат.

Предыдущая страница реферата | 1  2  3  4  5  6  7  8 | Следующая страница реферата