program ch0805
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 ch0805