DIMENSIONSUM(3)
DATASUM/1.0 ， 2.0 ， 3.0/
I=2
X=ADD(I ， SUM)
WRITE(* ， 10)X
10FORMAT(1X ， F3 ． 1)
END
FUNCTIONADD(N ， SUM)
DIMENSIONSUM(N) ， L(2)
ADD=0
L(2)=2
DO20I=1 ， N
ADD=ADD+SUM(I)/L(2)
20CONTINUE
END
(A)1.0
(B)1.5
(C)2.0
(D)3.0
参考答案