阅读下列FORTRAN77程序： INTEGER A(4,4) DATA A/1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16/ WRITE(*，100)F(A，3) 100 FO

admin2009-08-15 41

问题阅读下列FORTRAN77程序： INTEGER A(4,4) DATA A/1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16/ WRITE(*，100)F(A，3) 100 FORMAT(1X，F4.1) END FUNCTION F(B，N) INTEGER B(N，N) F=0.0 DO 10 K=1，N 10 F=F+B(K，K) END 上述程序运行后，输出结果为(　　)。

选项 A、19.0
B、9.0
C、8.0
D、18.0

答案D

解析