比赛代码 - COGS

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

显示代码纯文本

program xxxx;
var a:array[1..10000] of real;
    w,i,j,n:longint;
begin
  assign(input,'sortt.in');
  reset(input);
  assign(output,'sortt.out');
  rewrite(output);
  read(n);
  for i:=1 to n do
    read(a[i]);
  for i:=1 to n-1 do
    for j:=i+1 to n do
      if a[i]>a[j] then
        inc(w);
  write(w);
  close(input);
  close(output);
end.