------------------------------------------------------------------------------
MC logo
FORTRAN Average Program
[^] CSc 404 Documentation And Examples
------------------------------------------------------------------------------
ave.f
C THIS PROGRAM READS INTEGERS INTO AN ARRAY, STORING
C THE ABSOLUTE VALUES, THEN COMPUTES AND PRINTS THE
C AVERAGE.
      DIMENSION DTA(900) 

C READ THE NUMBER OF INPUT VALUES
      READ 10, N 
 10   FORMAT(I3) 

C READ THAT MANY NUMBERS, STORING ABSOLUTE VALUES
      DO 20 I = 1, N 
      READ 30, DTA(I) 
 30   FORMAT(F10.6) 
      IF(DTA(I)) 25,20,20 
 25   DTA(I) = -DTA(I) 
 20   CONTINUE 

C COMPUTE THE SUM OF THE NUMBERS
      SUM = 0.0 
      DO 40 I=1, N 
      SUM = SUM + DTA(I) 
 40   CONTINUE 

C COMPUTE AND PRINT THE AVERAGE
      AVG = SUM/FLOAT(N) 
      PRINT 50, AVG 
 50   FORMAT(1H ,F10.6) 
      STOP 
      END