比赛代码 - COGS

比赛	20090927练习赛	评测结果	EEEEEEAEEE
题目名称	排序工作量	最终得分	10
用户昵称	Achilles	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2009-09-27 19:40:31

显示代码纯文本

program sortt;
var
  n,i,j,max:longint;
  sz:array[1..10000]of longint;
begin
  assign(input,'sortt.in');
  assign(output,'sortt.out');
  reset(input);
  rewrite(output);
  readln(n);
  for i:=1 to n do
    read(sz[i]);
  max:=0;
  for i:=1 to n-1 do
    for j:=i+1 to n do
      if sz[i]>sz[j] then max:=max+1;
  writeln(max);
  close(input);
  close(output);
end.