记录编号	19663	评测结果	AAAAAAAAAA
题目名称	排序工作量	最终得分	100
用户昵称	Des.	是否通过	通过
代码语言	Pascal	运行时间	3.680 s
提交时间	2010-10-14 20:06:04	内存使用	0.18 MiB

program sortt;
var a:array[1..10000]of real;
    t,k,m,n,j:longint;
begin
assign(input,'sortt.in');
reset(input);
assign(output,'sortt.out');
rewrite(output);
readln(n);
for t:=1 to n do
  read(a[t]);
for t:=1 to n-1 do
  for k:=t+1 to n do
    if a[t]>a[k] then inc(j);
writeln(j);
close(output);
end.