Jollwish 2008-08-26 00:34:00
点我顶贴
收藏
删除
根据众大牛所说，bubble可以过，为什么我的还是不行？
望大牛讲解一下（43分，4个点WA）
var a:array[1..1000]of integer；
n,i,j,p:integer；
s:longint；
begin
readln(n)；
for i:=1 to n do readln(a[i])；
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
inc(s)；
p:=a[i]；
a[i]:=a[j]；
a[j]:=p；
end；
writeln(s)；
end.