Составить алгоритм транспонирования матрицы

составить алгоритм транспонирования матрицы
1 ответ

Алгоритм:
 for i:=1 to n do
  for j:=i+1 to m do
    begin
     k:=a[i,j];
     a[i,j]:=a[j,i];
     a[j,i]:=k;
    end;
Весь код:
uses crt;
const n = 5;
      m = 5;
var i,j,k: integer;
    a: array [1..n,1..m] of integer;
begin
 randomize;
 for i:=1 to n do
  begin
   for j:=1 to m do
    begin
     a[i,j]:=random(10);
     write(a[i,j]:3);
    end;
    writeln;
  end;
 
 for i:=1 to n do
  for j:=i+1 to m do
    begin
     k:=a[i,j];
     a[i,j]:=a[j,i];
     a[j,i]:=k;
    end;
  writeln;
  for i:=1 to n do
  begin
   for j:=1 to m do
     write(a[i,j]:3);
    writeln;
  end;
end.