Дана матрица 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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.