Отсортировать двумерный массив - VB (61034)
Формулировка задачи:
В двумерном массиве из положительных и отрицательных чисел записать числа главной диагонали в обратную сторону.
Решение задачи: «Отсортировать двумерный массив»
textual
Листинг программы
Form1.Cls Dim n%(10, 10), s%, r% r = InputBox("razmer massiva") For i = 1 To r For j = 1 To r n(i, j) = Rnd(1) * 10 \ 1 - 5 Print n(i, j); Next j Print Next i For i = 1 To r \ 2 s = n(i, i): n(i, i) = n(r + 1 - i, r + 1 - i): n(r + 1 - i, r + 1 - i) = s Next i Print For i = 1 To r For j = 1 To r Print n(i, j); Next j Print Next i
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д