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

program gls;   
var  
n,k,i,j,max:longint; a:real;   
ss:array[1..10000]of real;   
f,g:text;   
begin  
assign(f,'sortt.in');   
reset(f);   
assign(g,'sortt.out');   
rewrite(g);   
readln(f,n);   
for k:=1 to n do begin read(f,a);ss[k]:=a;end;   
for i:=1 to n-1 do  
begin for j:=i+1 to n do  
   if ss[i]>ss[j] then inc(max);   
end;   
writeln(g,max);   
close(f);close(g);   
end.