比赛代码 - COGS

比赛	20100925练习	评测结果	AAAAAAAAAA
题目名称	排序工作量	最终得分	100
用户昵称	gragon	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2010-09-25 09:37:38

显示代码纯文本

program ex;
var
a:array[1..10000] of double;
n,m,i,j:longint;
f:text;
begin
assign(f,'sortt.in');
reset(f);
readln(f,n);
for i:=1 to n do
read(f,a[i]);
close(f);
m:=0;
for i:=1 to n-1 do
for j:=i to n do
if a[i]>a[j] then
inc(m);
assign(f,'sortt.out');
rewrite(f);
writeln(f,m);
close(f);
end.