ex0701.f90

来自「Fortran95的一些有用的源程序」· F90 代码 · 共 21 行

program ex0701
implicit none
  integer, parameter :: students = 5
  integer :: student(students)
  integer i

  do i=1, students
    write(*,"('Number ',I2)") i
    read(*,*) student(i)
  end do

  do while( .true. )
    write(*,*) "Query:"
    read(*,*) i
    if ( i<=0 .or. i>students ) exit
    write(*,*) student(i)
  end do

  stop
end