逆序对-洛谷 1908

题目描述

猫猫TOM和小老鼠JERRY最近又较量上了，但是毕竟都是成年人，他们已经不喜欢再玩那种你追我赶的游戏，现在他们喜欢玩统计。最近，TOM老猫查阅到一个人类称之为“逆序对”的东西，这东西是这样定义的：对于给定的一段正整数序列，逆序对就是序列中ai>aj且i<j的有序对。知道这概念后，他们就比赛谁先算出给定的一段正整数序列中逆序对的数目。

输入输出格式

输入格式：
第一行，一个数n，表示序列中有n个数。

第二行n个数，表示给定的序列。

输出格式：
给定序列中逆序对的数目。

输入输出样例

输入样例#1：
6
5 4 2 6 3 1
输出样例#1：
11

题解：这道题用归并排序。

var a:array[1..40000]of longint;
    ans,c,n:longint;
procedure he(i,t,j:longint);
var m,n:array[1..20000]of longint;
    z,x,y:longint;
begin
  for z:=i to t do
  m[z-i+1]:=a[z];
  for z:=t+1 to j do
  n[z-t]:=a[z];
  x:=1;y:=1;
  for z:=i to j do
  begin
    if (x<=t-i+1)and(y<=j-t) then
    begin
      if m[x]>n[y] then
      begin
        ans:=ans+(t-i+2-x);
        a[z]:=n[y];
        inc(y);
      end
      else
      begin
        a[z]:=m[x];
        inc(x);
      end;
    end
    else
    begin
      if x<=t-i+1 then
      begin a[z]:=m[x];inc(x);end;
      if y<=j-t then
      begin a[z]:=n[y];inc(y);end;
    end;
  end;
end;
procedure fen(i,j:longint);
var t:longint;
begin
  if i<>j then
  begin
    t:=(i+j)div 2;
    fen(i,t);
    fen(t+1,j);
    he(i,t,j);
  end;
end;
begin
  read(n);
  for c:=1 to n do
  read(a[c]);
  fen(1,n);
  write(ans);
  readln;readln;
 end.