slzxzh 2008-08-26 17:15:00
点我顶贴
收藏
删除
var
a:array [1..1000] of longint；
n,s,i,j,t:longint；
begin
readln(n)；
for i:=1 to n do read(a[i])；
s:=0；
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
s:=s+1；
t:=a[i]； a[i]:=a[j]； a[j]:=t；
end；
write(s)；
end.