记录编号	13130	评测结果	AAAAAAAAAA
题目名称	排序工作量	最终得分	100
用户昵称	maxiem	是否通过	通过
代码语言	Pascal	运行时间	3.748 s
提交时间	2009-09-28 19:51:06	内存使用	0.18 MiB

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