记录编号	216252	评测结果	AAAAAAAAAA
题目名称	排序工作量	最终得分	100
用户昵称	萌萌哒姐姐	是否通过	通过
代码语言	Pascal	运行时间	1.266 s
提交时间	2015-12-27 19:05:10	内存使用	0.83 MiB

var i,j,all,n:longint;
a:array[1..100000] of double;
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 do 
			for j:=i+1 to n do 
				if a[i]>a[j] then inc (all);
	writeln(all);
	close(input);close(output);
end.