var
a:array[0..9] of integer
=(4,3,5,1,10,2,6,9,7,8);
procedure Print(_a:array of integer);
var i:integer;
begin
for i:=0 to 9 do
begin
write(_a[i]:5);
end;
writeln;
end;
procedure InsertSort(var _a:array of integer);
var i,j,temp:integer;
begin
for i:=1 to 9 do
begin
temp:=_a[i];
j:=i-1;
while _a[j]>temp do
begin
_a[j+1]:=_a[j];
dec(j);
end;
_a[j+1]:=temp;
Print(_a);
end;
end;
begin
InsertSort(a);
Print(a);
readln;
end.
全国青少年信息学奥林匹克竞赛培训---插入排序
最新推荐文章于 2023-11-15 14:00:23 发布