记录编号	19588	评测结果	AAAAAAAAAA
题目名称	排序工作量	最终得分	100
用户昵称	make	是否通过	通过
代码语言	Pascal	运行时间	3.735 s
提交时间	2010-10-13 08:54:47	内存使用	0.19 MiB

program sortt;   
var  
 a:array [1..10000] of real;   
 t,n,i,j:longint;   
 f1,f2:text;   
  
procedure init;   
var k:longint;   
begin  
 assign(f1,'sortt.in'); reset(f1);   
 assign(f2,'sortt.out'); rewrite(f2);   
 readln(f1,n);   
 for k:=1 to n do  
  read(f1,a[k]);   
 close(f1);   
end;   
  
begin  
 init;   
 for i:=1 to n-1 do  
  for j:=i+1 to n do  
   if a[j]<a[i] then t:=t+1;   
 writeln(f2,t);   
 close(f2);   
end.