任意的3个数怎么从大到小的顺序排序，用数组的方式，循环来做，谢谢

给你一个排序算法，是最简单的一种排序算法，效率不是最高，建议学一学数据结构
procedure BubbleSort(var A: array of Integer);
var
I, J, T: Integer;
begin
for I := High(A) downto Low(A) do
for J := Low(A) to High(A) - 1 do
if A[J] > A[J + 1] then
begin
T := A[J];
A[J] := A[J + 1];
A[J + 1] := T;
end;

谢谢，已经解决了