为以下的Fortran程序构造一个可能的运行时环境的组织结构。 REAL A(SIZE),AVE INTEGER
为以下的Fortran程序构造一个可能的运行时环境的组织结构。 REAL A(SIZE),AVE INTEGER N,I i0 READ *,N IF(N.LE.0.OR.N.GT.SIZE)GOTO 100 READ *,(A(I),I=1,N) PRINT*,AVE=,AVE(A,N) GOTO 10 100 CONT工NUE END REAL FUNCTION AVE(B,N) INTEGER I,N REAL B(N),SUM SUM=0.0 DO 20I=1,N 20 SUM=SUM+B(I) AVE=SUM/N END