ans0701.f90

fortran95程序设计源程序（彭国伦）第七章

program main
  implicit none
  integer, parameter :: max = 10
  integer i
  integer :: a(max) = (/ (2*i, i=1,10) /)
  integer :: t
  ! sum()是fortran库函数  
  write(*,*) real(sum(a))/real(max)
  
  stop
end program