冒泡排序

winzhi

#Array_Temp := #Array_In;

FOR #i := 1 TO 9 DO
    FOR #j := 1 TO 10 - #i DO
        IF #Array_Temp[#j] > #Array_Temp[#j + 1] THEN   // 升序
            #Real_Temp := #Array_Temp[#j];
            #Array_Temp[#j] := #Array_Temp[#j + 1];
            #Array_Temp[#j + 1] := #Real_Temp;
        END_IF;
    END_FOR;
END_FOR;

#Array_Sort := #Array_Temp;