UC知道【求救】选择排序改冒泡!!!【急用，在线等！】
来源：百度知道 编辑：UC知道 时间：2024/07/19 08:13:49
下面程序是选择排序：
const n=10;
var a:array[1..10] of integer;
i,j:integer;
temp:integer;
begin
randomize;
for i:= 1 to n do a[i]=random(100);
for i:= 1 to n-1 do
for j:=i+1 to mdo
if a[i]>a[j] then （只能改这一行！）
begin
temp:=a[i];a[i]:=a[j]; a[j]:=temp;
end;
writeln('result');
for i = 1 to n do writeln (a[i]:3);
end.
怎么改成冒泡？？
const n=10;
var a:array[1..10] of integer;
i,j:integer;
temp:integer;
begin
randomize;
for i:= 1 to n do a[i]=random(100);
for i:= 1 to n-1 do
for j:=i+1 to mdo
if a[i]>a[j] then （只能改这一行！）
begin
temp:=a[i];a[i]:=a[j]; a[j]:=temp;
end;
writeln('result');
for i = 1 to n do writeln (a[i]:3);
end.
怎么改成冒泡？？
那程序只改那一行不可能的,还有,有一些语法错误,我都改过来了,下面是程序
const n=10;
var a:array[1..10] of integer;
i,j:integer;
temp:integer;
begin
randomize;
for i:= 1 to n do a[i]:=random(100);
for i:= 1 to n-1 do
for j:=n downto i+1 do
if a[j-1]>a[j] then
begin
temp:=a[j-1];a[j-1]:=a[j];a[j]:=temp;
end;
writeln('result');
for i := 1 to n do writeln (a[i]:3);
end.