测评机： Xeost[5]

得分： 100分

提交日期： 2009-1-11 20:17:00

有效耗时： 3455毫秒

测试结果1: 通过本测试点|有效耗时156:ms

测试结果2: 通过本测试点|有效耗时157:ms

测试结果3: 通过本测试点|有效耗时156:ms

测试结果4: 通过本测试点|有效耗时157:ms

测试结果5: 通过本测试点|有效耗时172:ms

测试结果6: 通过本测试点|有效耗时203:ms

测试结果7: 通过本测试点|有效耗时250:ms

测试结果8: 通过本测试点|有效耗时469:ms

测试结果9: 通过本测试点|有效耗时750:ms

测试结果10: 通过本测试点|有效耗时985:ms

提交代码： var

f:array[1..20000]of longint；

r,m,n,o:longint；

begin

readln(m)；

for n:=1to m do

readln(f[n])；

for n:=1to m-1do

for o:=n+1to m do

if f[n]>f[o]

then inc(r)；

write(r)；

end.

查看状态 Show Status

状态题目:Fish学数学

题目编号:173-Fish学数学 查看该题

状态: Accepted

测评机： Xeost[5]

得分： 100分

提交日期： 2008-7-26 17:33:00

有效耗时： 该状态没有记录

测试结果1: 测试结果正确

测试结果2: 测试结果正确

测试结果3: 测试结果正确

测试结果4: 测试结果正确

测试结果5: 测试结果正确

测试结果6: 测试结果正确

测试结果7: 测试结果正确

测试结果8: 测试结果正确

测试结果9: 测试结果正确

测试结果10: 测试结果正确

提交代码： program li；

var n,m,i,t,j:longint；

max:int64；

a:array[1..50000]of longint；

begin

read(n)；

for i:=1 to n do

begin

read(a[i])；

end；

for i:=1 to n do

for j:=i to n do

if a[i]>a[j] then max:=max+1；

write(max)；

end.