dadi 2008-08-25 23:38:00
点我顶贴
收藏
删除
状态: Unaccepted
测评机： Xeond[6]
得分： 0分
提交日期： 2008-8-22 7:46:00
有效耗时： 该状态没有记录
测试结果1: 选手程序无输出
测试结果2: 选手程序无输出
测试结果3: 选手程序无输出
测试结果4: 选手程序无输出
测试结果5: 选手程序无输出
测试结果6: 选手程序无输出
测试结果7: 选手程序无输出
提交代码： program li；
var
a:array[0..200000] of longint；
n,j,i,l,k:longint；
begin
readln(n)；
for i:=1 to n do
readln(a[i])；
l:=0；
for i:=1 to n-1 do
for j:=i+1 to n do
begin
if a[i]>a[j] then begin
k:=a[i]；
a[i]:=a[j]；
a[j]:=k；
l:=l+1；
end；
end；
write(l)；
end.