下面程序段的运行结果是
。
DIMENSION SUM(3)
DATA SUM/1.0,2.0,3.0/
I=2
X=ADD(I,SUM)
WRITE(*,10)X
10 FORMAT(1X,F3.1)
END
FUNCTION ADD(N,SUM)
DIMENSION SUM(N),L(2)
ADD=0
L(2)=2
DO 20 I=1,N
ADD=ADD+SUM(I)/L(2)
20 CONTINUE
END
A、
1.0
B、
1.5
C、
2.0
D、
3.0
【正确答案】
B
【答案解析】
将实参数组SUM的前两个元素传递给虚参数组SUM中。
提交答案
关闭