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