Дана матрица 5 Х5.

вывести ее в транспортированом виде, поменять местами строки со столбцами.

P. S Turbo Pascal

Program abc; var i, j: byte; arr1, arr2: array [1 ... 5] of array [1 ... 5] of integer; arr: array[1 ... 25] of integer; begin for i : = 1 to 25 do begin arr[i] : = i; end; writeln ('array1:') ; for i : = 1 to 5 do begin for j : = 1 to 5 do begin arr1[i][j] : = arr[ (i - 1) * 5 + j]; write (' ', arr1[i][j], ' ') ; end; writeln () ; end; writeln ('array2:') ; for i : = 1 to 5 do begin for j : = 1 to 5 do begin arr2[i][j] : = arr1[j][i]; write (' ', arr2[i][j], ' ') ; end; writeln () ; end; end.