ans0701.f90

来自「fortran95程序设计源程序（彭国伦）第七章」· F90 代码 · 共 12 行

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