比赛代码 - COGS

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

显示代码纯文本

program nixudui;
var
  z,i,j,n:integer;
  a:array[1..10000]of integer;
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-1 do
    for j:=i+1 to n do
    if a[i]>a[j] then
    z:=z+1;
  write (z);
  close (input);
  close (output)
end.