用Fortran编写，如何给5个数排序问题

如何使用Fortran编写程序示例，给5个数排序问题，也可自行根据需要添加更多的数！

program sort
  implicit none
  integer :: a(5), i, j, temp

  print *, "请输入5个整数："
  do i = 1, 5
    read *, a(i)
  end do

  do i = 1, 4
    do j = i+1, 5
      if (a(i) > a(j)) then
        temp = a(i)
        a(i) = a(j)
        a(j) = temp
      end if
    end do
  end do

  print *, "排序后的结果为："
  do i = 1, 5
    print *, a(i)
  end do

end program sort

 以上就是代码的全部内容，大家感兴趣的可以参考参考，本人使用codeblocks编写而成，可以在任何.f90的支持Fortran的程序中参考使用！