program t1;
const n=3;
type matrix=array[1..n,1..n]of integer;
var a:matrix;
i,j:1..n;
begin
for i:=1 to n do
begin
for j:=1 to n do
read(a[i,j]);
readln;
end;
for i:=1 to n do
begin
for j:=1 to n do
write(a[j,i]:5);
writeln;
end;
end.
且运行程序时的输入为:
2□1□3←┘
3□3□1←┘
1□2□1←┘
则程序的输出应是:
输出： 2 3 1
1 3 2
3 1 1