var
a:array[1..20000] of 0..1000000;
i,j,n,t:longint;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
for j:=1 to i-1 do
if (a[j]>a[i]) then
inc(t);
end;
writeln(t);
end.
快速帮助 | 运行状态 | 反馈举报 | 关于我们 | 免责声明 | 浙ICP备11060257号 Processed in 0.0035 Second(s) Copyright (C) RQNOJ 2007-2019. All Rights Reserved.
