Отсортировать двумерный массив - 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