fortran 冒泡排序

可以使用Fortran语言实现冒泡排序算法。下面是一个示例代码：

program bubble_sort
    implicit none
    
    integer, parameter :: n = 10
    integer :: arr(n)
    integer :: i, j, temp
    
    ! 初始化数组
    arr = [9, 4, 2, 7, 5, 1, 8, 3, 6, 0]
    
    ! 冒泡排序
    do i = 1, n-1
        do j = 1, n-i
            if (arr(j) > arr(j+1)) then
                temp = arr(j)
                arr(j) = arr(j+1)
                arr(j+1) = temp
            end if
        end do
    end do
    
    ! 输出排序后的数组
    write(*,*) "排序后的数组:"
    do i = 1, n
        write(*,*) arr(i)
    end do
    
end program bubble_sort

输出结果为：

排序后的数组:
           0
           1
           2
           3
           4
           5
           6
           7
           8
           9