Транспонировать массив А размером 4 х4 элементов. Вывести на экран исходный и полученный массив.

Const n = 4;

m = 4;

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.