记录编号	14680	评测结果	AAAAAAAAAA
题目名称	排序工作量	最终得分	100
用户昵称	reamb	是否通过	通过
代码语言	Pascal	运行时间	3.683 s
提交时间	2009-11-02 21:13:06	内存使用	0.18 MiB

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