program ch0804
implicit none
integer , parameter :: nrow=5
integer , parameter :: ncol=6
real , dimension(1:nrow,1:ncol) &
   :: Exam_Results = 0.0
real , dimension(1:nrow) &
   :: People_average = 0.0
real , dimension(1:ncol) &
   :: Subject_Average = 0.0
integer :: r,c
   do r=1,nrow
      read *, exam_results(r,1:ncol)
   end do
   Exam_Results(1:nrow,3) = 2.5 * Exam_Results(1:nrow,3)
   do r=1,nrow
      do c=1,ncol
         people_average(r) = people_average(r) + &
            exam_results(r,c)
      end do
   end do
   people_average = people_average / ncol
   do c=1,ncol
      do r=1,nrow
         subject_average(c) = subject_average(c) + &
            exam_results(r,c)
      end do
   end do
   subject_average = subject_average / nrow
   print *,' People averages'
   print *, people_average
   print *, ' Subject averages'
   print *, subject_average
end program ch0804