比赛代码 - COGS

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

显示代码纯文本

program sortt;
var
 a:array [1..10000] of longint;
 t,n,i,j:longint;
 f1,f2:text;

procedure init;
var i:longint;
begin
 assign(f1,'sortt.in'); reset(f1);
 assign(f2,'sortt.out'); rewrite(f2);
 readln(f1,n);
 for i:=1 to n do
  read(f1,a[i]);
 close(f1);
end;

begin
 init;
 for i:=1 to n-1 do
  for j:=i+1 to n do
   if a[j]<a[i] then t:=t+1;
 writeln(f2,t);
 close(f2);
end.