找考题网-背景图
单项选择题

阅读下列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

热门试题