procedure SelectSort(var N:array of integer);
var
I,J,K,IntTemp:integer;
begin
for I := 0 to High(N)-1 do
begin
IntTemp:=N[I];
K:=I;
for J := I+1 to High(N) do
begin
if IntTemp>N[J] then
begin
K:=J;
IntTemp:=N[J];
end;
end;
if K<>I then
begin
N[K]:=N[I];
N[I]:=IntTemp;
end;
end;
end;
delphi 选择排序类
最新推荐文章于 2022-07-31 14:44:24 发布