|
{* Задача120 *}REM basic ' Дана матрица, состоящая из целых чисел Сij, где i=1, 6; j=1, 6. Записать числа, стоящие в первой строке в первый столбец, вторую строку во второй столбец, и т.д.CLS: n = 6: Dim a(n, n)
DATA 2,-3,-4,8,9,11
DATA 1,7,13,16,2,3
DATA 2,8,9,-11,4,1
DATA 3,5,4,7,-8,13
DATA 6,-4,8,12,10,-3
DATA 4,-1,5,3,2,-6
For i = 1 To n: For j = 1 To n
READ a(i, j): PRINT Using "####"; a(i, j);
Next: PRINT: Next
For i = 1 To n: For j = 1 To i
SWAP a(i, j), a(j, i)
Next: Next
PRINT String$(80, 196)
For i = 1 To n: For j = 1 To n
PRINT Using "####"; a(i, j);
Next: PRINT: Next
End
|