问题 单项选择题

有程序:DIMENSIONA(2,2)INTEGERA,YY=0DO20I=1,2D020J=1,2A(I,J)=I*I+J*JY=Y+A(I,J)20CONTINUEWRITE(*,*)YEND此程序运行的结果为:()

A.16

B.20

C.27

D.30

答案

参考答案:B

解析:程序运行时利用双重循环为数组A赋值,其中A(1,1)=2,A(1,2)=5,A(2,1)=5,A(2,2)=8,再经过Y=Y+A(I,J)累加后,其结果为20。

选择题
填空题