如果我的数组已经部分排序，如何跳过排序程序中数组的一部分

Question

因此，我们在班上教授了泡沫排序，

!Sorting n real numbers 
program bubblesort
implicit none   
integer::i,j,n
integer,allocatable,dimension(:)::A 
write(*,*)"Enter the number of elements"
read(*,*)n
allocate (A(n))
write(*,*)"Enter the numbers"
read(*,*)(A(i),i=1,n)
do while (n>1)
    do i=1,n-1
        if(A(i) > A(i+1)) then
            j = A(i)
            A(i) = A(i+1)
            A(i+1) = j
        endif
    enddo
    n = n-1
enddo   
write(*,*)"The sorted array is - ",A
end program

现在我有这个代码，我的教授要求我修改它，如果要排序的给定阵列的一部分已经在正确的位置，那么我们应该跳过那部分，例如假设我的数组是5 3 1 2 4 6 7 8，这里6 7 8在正确的位置，因此我们如何编写一个程序，以便它自动跳过这些最后一个3个要素。

我在网上无处不在，但是我找不到它如何以这种方式优化气泡排序，我只能找到方法来检查整个阵列是否已排序，然后在发生这种情况时如何结束排序。

感谢提前的帮助！

Answer 1

我能够使用2个不同的子例程来解决此问题，一个是为了通过阵列进行的第一个检查，并检查末尾的多少元素不需要进一步的分类，然后我在泡沫排列的其余部分中使用了另一个子例程

!This is the first run of bubble sort to know the range 
subroutine Bubtest(n,A,k)
implicit none
integer::i,j,k,n,A(8)
do i=1,n-1
    if(A(i) > A(i+1)) then
        j = A(i)
        A(i) = A(i+1)
        A(i+1) = j
        k = i
    endif
enddo
k = k+1
end subroutine

。是确定K的第一个子例程，它可以找到降低的范围

!This is the main bubble sort subroutine
subroutine sortBub(k, A)
implicit none
integer::i,j,k,A(8)
do while (k>1)
    do i=1,k-1
        if(A(i) > A(i+1)) then
            j = A(i)
            A(i) = A(i+1)
            A(i+1) = j
        endif
    enddo
    k = k-1
enddo
end subroutine

，这是针对常规气泡排序使用

我的主程序中的阵列中的降低范围