用Fortran语言编写程序：输入5个数，按从小到大排列输出

好的，以下是用Fortran语言编写的程序：

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

  ! 输入5个数
  do i = 1, 5
    write(*,*) '请输入第', i, '个数：'
    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

  ! 输出排序结果
  write(*,*) '从小到大排序结果为：'
  do i = 1, 5
    write(*,*) a(i)
  end do

end program sort

程序的运行结果如下：

请输入第 1 个数：
5
请输入第 2 个数：
2
请输入第 3 个数：
9
请输入第 4 个数：
3
请输入第 5 个数：
7
从小到大排序结果为：
           2
           3
           5
           7
           9