{* Задача36 *}

REM basic

' Дана матрица A=[a_ij] размерности m на n.
' Найти транспонированную матрицу, то есть заменить строки матрицы ее столбцами,
' а столбцы – строками, т.е. b_ij=a_ji


CLS
PRINT "Введите число строк матрицы А"
INPUT m 
PRINT "Введите число столбцов матрицы А"
INPUT n 
Dim a(m,n), b(n,m)
For i=1 To m 
For j=1 To n
PRINT "Введите a("; i; j; ")";
INPUT a(i, j)
Next j
Next i
PRINT "Матрица А"
For i=1 To m
For j=1 To n
PRINT a(i, j);
Next j
PRINT
Next i
For i=1 To m 
For j=1 To n
b(i, j)= a(j, i)
Next j
Next i
For i=1 To n 
For j=1 To m
PRINT b (i, j);
Next j
PRINT
Next i
End