比赛代码 - COGS

比赛	模拟测试2	评测结果	AAAAAAAAAA
题目名称	排序工作量	最终得分	100
用户昵称	magic	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2010-10-12 21:49:57

显示代码纯文本

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.