(来学网)有程序:INTEGER A(2,3)
DATA A/1,2,3,4,5,6/
CALL SB(A)
CALL SB(A(1,2))
END
SLIBROUTINE SB(B)
INTEGER B(2,2)
WRITE(*,‘(1X,2I3)')B(1,1),B(2,2)
END
此程序的运行结果是:
- A.
- B.
(来学网)1
5
2JZ163_229_7_42_1.gif]5
- C.
(来学网)1
4
3JZ163_229_7_42_1.gif]4
- D.
(来学网)1
2
3JZ163_229_7_42_1.gif]4