编辑代码

program main
implicit none
  integer,parameter :: students=5
  integer :: student(students)=(/ 80,90,85,75,95 /)
  integer i

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

end