用fortran讲数排序

以下是使用Fortran语言编写的一个简单的数排序程序示例：

program sort_numbers
    implicit none
    integer, parameter :: max_numbers = 100
    integer :: numbers(max_numbers)
    integer :: n, i, j, temp
    
    ! 输入待排序的数字个数
    write(*,*) "请输入待排序的数字个数（最多", max_numbers, "个）："
    read(*,*) n
    
    ! 输入待排序的数字
    write(*,*) "请输入", n, "个数字："
    do i = 1, n
        read(*,*) numbers(i)
    end do
    
    ! 冒泡排序算法
    do i = 1, n-1
        do j = 1, n-i
            if (numbers(j) > numbers(j+1)) then
                temp = numbers(j)
                numbers(j) = numbers(j+1)
                numbers(j+1) = temp
            end if
        end do
    end do
    
    ! 输出排序后的数字
    write(*,*) "排序后的数字："
    do i = 1, n
        write(*,*) numbers(i)
    end do
    
end program sort_numbers

在这个示例代码中，我们使用冒泡排序算法对输入的数字进行排序。首先，我们通过键盘输入待排序的数字个数n，并使用一个整数数组numbers(max_numbers)来存储这些数字。然后，我们使用一个嵌套的do循环来实现冒泡排序算法，将较大的数逐渐移动到数组的末尾。最后，我们输出排序后的数字。请注意，这段代码没有对输入的数字进行错误处理，例如输入的数字个数超过了最大值max_numbers，或者输入的数字不是合法整数等情况。你可以根据需要对代码进行扩展，添加相应的错误处理机制。