一级结构工程师
4979. 阅读下列FORTRAN77程序:
DIMENSIONJA(3),JB(3,2)
DATAJB/1,2,3,4,5,6/
D0 10K=1,3
10 JA(K)=JB(K,2)
WRITE(*,100)JA
100 FORMAT(1X,611)
END
上述程序运行后,输出结果为( )。
4980. 阅读下列FORTRAN程序:
DIMENSIONA(6)
READ(*,*)(A(I),I=1,6)
D0 10K-1,3S=A(K)
A(K)=A(7-K)
A(7-K)=S
10CONTINUE
WRITE(*,20)(A(I),I=1,6)
20 FORMAT(1X,21)
END
上述程序运行时,若由键盘输入1,2,3,4,5,6,则输出的结果为( )。