| 比赛 | 20090927练习赛 | 评测结果 | AAAAAAAAAA |
|---|---|---|---|
| 题目名称 | 排序工作量 | 最终得分 | 100 |
| 用户昵称 | .Xmz | 运行时间 | 0.000 s |
| 代码语言 | Pascal | 内存使用 | 0.00 MiB |
| 提交时间 | 2009-09-27 19:36:26 | ||
program xmz;
var
f1,f2:text;
n,a,b,s:longint;
x:array[1..10000]of real;
begin
assign(f1,'sortt.in');assign(f2,'sortt.out');
reset(f1);rewrite(f2);
read(f1,n);
for a:=1 to n do
read(f1,x[a]);
for a:=1 to n do
for b:=a-1 downto 1 do
begin
if x[b]>x[a] then s:=s+1;
end;
write(f2,s);
close(f1);close(f2);
end.