| 比赛 | 20090927练习赛 | 评测结果 | AAAAAAAAAA |
|---|---|---|---|
| 题目名称 | 排序工作量 | 最终得分 | 100 |
| 用户昵称 | 枫铃Knight | 运行时间 | 0.000 s |
| 代码语言 | Pascal | 内存使用 | 0.00 MiB |
| 提交时间 | 2009-09-27 21:04:58 | ||
var
a:array[1..10000] of real;
i,j,k,n:integer;
s:longint;
begin
assign(input,'sortt.in');assign(output,'sortt.out');
reset(input);rewrite(output);
readln(n);
s:=0;
for i:=1 to n do read(a[i]);
for i:=1 to n do
for j:=i to n do
if a[i]>a[j] then s:=s+1;
writeln(s);
close(input);close(output);
end.