zadach38.BAS

{* Задача38 *}

REM basic

'
'

Дана квадратная матрица A=[aij] порядка n. Найти
' транспонированную матрицу, то есть заменить строки матрицы ее столбцами, а
' столбцы – строками, т.е. bij=aji




CLS
INPUT "Введите число элементов массива"; n
Dim a(n,n), b(n,n)
For i=1 To n
For j=1 To n
PRINT "Введите a("; i; j; ")"; 
INPUT a(i, j)
Next j
Next i
PRINT "Исходная матрица"
For i=1 To n
For j=1 To n
PRINT a(i, j);
Next j
PRINT
Next i
For i=1 To n-1
For j= i +1 To n
P= a(i, j)
a(i, j)= a(j,i)
a(j,i)=P
Next j
Next i
For i=1 To n 
For j=1 To n
PRINT a (i, j);
Next j
PRINT
Next i
End