问题
单项选择题
下面程序段的运行结果是（）。
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中。