| 比赛 | 模拟测试2 | 评测结果 | EEEEEEAEEE |
|---|---|---|---|
| 题目名称 | 排序工作量 | 最终得分 | 10 |
| 用户昵称 | Des. | 运行时间 | 0.000 s |
| 代码语言 | Pascal | 内存使用 | 0.00 MiB |
| 提交时间 | 2010-10-12 19:20:09 | ||
program sortt;
var a:array[1..10000]of longint;
t,k,m,n,j:longint;
begin
assign(input,'sortt.in');
reset(input);
assign(output,'sortt.out');
rewrite(output);
readln(n);
for t:=1 to n do
read(a[t]);
for t:=1 to n-1 do
for k:=t+1 to n do
if a[t]>a[k] then inc(j);
writeln(j);
close(output);
end.