一段fortran代码使对用户随机输入的五个数进行排序

下面是一段Fortran代码，可以对用户随机输入的五个数进行排序：

program sort_numbers
    implicit none
    integer :: i, j, temp
    integer :: numbers(5)

    ! Read in the numbers
    write(*,*) 'Enter five numbers:'
    do i = 1, 5
        read(*,*) numbers(i)
    end do

    ! Sort the numbers
    do i = 1, 4
        do j = i+1, 5
            if (numbers(i) > numbers(j)) then
                temp = numbers(i)
                numbers(i) = numbers(j)
                numbers(j) = temp
            end if
        end do
    end do

    ! Print out the sorted numbers
    write(*,*) 'The sorted numbers are:'
    do i = 1, 5
        write(*,*) numbers(i)
    end do

end program sort_numbers

这段代码首先读入了用户输入的五个数，然后使用冒泡排序算法对它们进行排序，最后输出排好序的结果。