PROGRAM ch1109
IMPLICIT NONE
REAL :: Total=0.0, Average=0.0
REAL , DIMENSION(12) :: 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
  Total = SUM(RainFall)
  Average = Total / 12
  PRINT *,' Average monthly rainfall was'
  PRINT *, Average
END PROGRAM ch1109