PROGRAM ch1105
IMPLICIT NONE
integer , parameter :: n=12
REAL :: Total=0.0, Average=0.0
REAL , DIMENSION(1:n) :: RainFall = &
  (/3.1,2.0,2.4,2.1,2.2,2.2,1.8,2.2,2.7,2.9,3.1,3.1/)
INTEGER :: Month
  DO Month=1,n
    Total = Total + RainFall(Month)
  ENDDO
  Average = Total / n
  PRINT *,' Average monthly rainfall was'
  PRINT *, Average
END PROGRAM ch1105