Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Const n = 5
- Dim A(n, n)
- Sub func()
- Call zap
- For i = 1 To n
- j = Max(i)
- Count = A(i, i)
- A(i, i) = A(i, j)
- A(i, j) = Count
- Next i
- Call vivod
- End Sub
- Function Max(i)
- Max = 1
- For j = 2 To n
- If A(i, j) >= A(i, Max) Then Max = j
- Next j
- End Function
- Sub zap()
- For i = 1 To n
- For j = 1 To n
- A(i, j) = Cells(i, j)
- Next j
- Next i
- End Sub
- Sub vivod()
- For i = 1 To n
- For j = 1 To n
- Cells(i + n + 2, j) = A(i, j)
- Next j
- Next i
- End Sub
Add Comment
Please, Sign In to add comment