//数组排序
#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 输入输出类型