基佬 2016-10-05 18:49:32
点我顶贴
收藏
删除
代码部分：
var
a:array[1..20000] of 0..1000000;
i,j,n,t:longint;
begin
readln(n);
for i:=1 to n do
begin
readln(a[i]);
for j:=1 to i-1 do
if (a[j]>a[i]) then
inc(t);
end;
writeln(t);
end.