有程序:INTEGERM(3,3) DATAM/l,2,3,4,5,6,7,8,9/D010I=1.3 D010J=1,3K=M(1,J)M(1,J)=M(J,I) M(J,
有程序:INTEGERM(3,3) DATAM/l,2,3,4,5,6,7,8,9/D0 10 I=1.3 D0 10J=1,3K=M(1,J)M(1,J)=M(J,I) M(J,I)=K 10 CONTINUE WRITE(*,100)((M(1,J),J=1,3),I=1,3) 100 FORMAT(1X,312) END 此程序执行后的结果为: A.1 4 7 2 5 8 3 6 9 B.1 2 3 4 5 6 7 8 9 C.9 6 3 4 5 6 D.7 8 9 4 5 6 1 2 3