我估计很多人不愿答你,我来吧,
aa:array[1..6]of integer=(3,10,6,8,98,22);procedure maopao();
var
i,j,k,temp:integer;
begin
for i:=5 downto 1 do
begin
for j:=1 to i do
begin
if aa[j]>aa[j+1] then
begin
temp:=aa[j];
aa[j]:=aa[j+1];
aa[j+1]:=temp;
end;
end;
end;
end;
aa:array[1..6]of integer=(3,10,6,8,98,22);procedure maopao();
var
i,j,k,temp:integer;
begin
for i:=5 downto 1 do
begin
for j:=1 to i do
begin
if aa[j]>aa[j+1] then
begin
temp:=aa[j];
aa[j]:=aa[j+1];
aa[j+1]:=temp;
end;
end;
end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货