ans0703.f90

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

program main
  implicit none
  integer, parameter :: max=10
  integer f(max)
  integer i

  f(1)=0
  f(2)=1
  
  do i=3,max
    f(i)=f(i-1)+f(i-2)
  end do
  
  write(*,"(10I4)") f
  
  stop
end program