лабораторная работа / 2-5 Транспонирование / Документ Microsoft Word

program Project2;

var a: array[1..10,1..10] of integer;

i,j,n,m,q: byte;

buf: integer;

begin

WriteLn('Vvedite chiclo strok i stolbcov');

Read(n);

for i:=1 to n do

for j:= 1 to n do

Read(a[i,j]);

for i:=1 to n do

for j:=1 to n do

begin

buf:= a[i,j];

a[i,j]:= a[j,i];

a[j,i]:= buf;

end;

for i:=1 to n do

begin

for j:= 1 to n do

begin

Write(a[j,i], ' ');

end;

WriteLn;

end;

ReadLn(q);

end.