zyzjsz 2013-08-21 06:43:00
点我顶贴
收藏
删除
题目:Fish学数学
状态: Accepted
测评机： Xeost[5]
得分： 100分
提交日期： 2010-7-27 10:51:00
有效耗时： 3422毫秒
测试结果1: 通过本测试点|有效耗时157ms
测试结果2: 通过本测试点|有效耗时156ms
测试结果3: 通过本测试点|有效耗时156ms
测试结果4: 通过本测试点|有效耗时172ms
测试结果5: 通过本测试点|有效耗时172ms
测试结果6: 通过本测试点|有效耗时203ms
测试结果7: 通过本测试点|有效耗时250ms
测试结果8: 通过本测试点|有效耗时484ms
测试结果9: 通过本测试点|有效耗时672ms
测试结果10: 通过本测试点|有效耗时1000ms
提交代码： view sourceprint?
01.var
02.
i,j,k,m,n:longint;
03.
l:int64;
04.
a:array[1..20000]of longint;
05.begin
06.
read(n);
07.
for i:=1 to n do read(a[i]);
08.
for i:=1 to n-1 do
09.
for j:=i+1 to n do
10.
if a[i]>a[j] then l:=l+1;
11.
write(l);
12.end.