//數組排序
#k := 99;  //  輸入數組[0..99]
WHILE #k >= 0 DO  //外循環
    #j := 0;
    #i := 0;
    WHILE #i <= #k DO  // 內循環
        IF #arr[#j] < #arr[#i] THEN
            #j := #i;  // 記下最大值下標
        END_IF;
        IF #i = #k  THEN   // 循環完成交換當前值和最大值
            #buff := #arr[#i];
            #arr[#i] := #arr[#j];
            #arr[#j] := #buff;
        END_IF;
        #i := #i + 1;
    END_WHILE;
    #k := #k - 1;
END_WHILE;           我寫了一個,也調試好了,歡迎參考 ,博圖v16  , k ,j,buff   i都是int類型   ,arr是 [0..99] of int  輸入輸出類型