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