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

Question

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

Answer 1

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.