pascal冒泡程序求改。。。

pascal冒泡程序求改。。。

一个简单的冒泡被你搞的这么复杂……
procedure maopao(l,r:longint);
var
i,j,t:longint;
begin
for i:=l to r-1 do
for j:=i+1 to r do
if a[i]>a[j] then
begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
end;
注：这是过程，不过主题思想差不多

rogram maopaol;
const mx=10000;
var
d:array[1..mx]of longint;
n,i,j,k:longint;
sorted:boolean;
begin
readln(n);
for i:=1 to n do read(d[i]);
sorted:=false;
i:=1;
while not sorted do
begin
sorted:=true;
for j:=n-1 downto i do
if d[j+1]begin
sorted:=false;
k:=d[j];
d[j]:=d[j+1];
d[j+1]:=k;
end;
i:=i+1;
end;
for i:=1 to n do writeln(d[i]);
end.

很简单
procedure maopao；
var i,j,t,r:integer;
begin
read(r);
for i:=l to r-1 do
for j:=1 to r-i do
if a[j]>a[j+1] then
begin
t:=a[j];
a[j]:=a[j+1];
a[j+1]:=t;
end;
end;

好难啊。orz

楼主说的是冒泡。。1L的是选择排序吧- -
编译错误，比如最后那个do打成de了- -