函数子程序FJ求一组数的和。 FUNCTIONFJ(X，N) DIMENSIONX(N) s=o DO10K=1,NS=