SSL1132 编码问题

编码问题

Description

设有一个数组A：array [0..N-1] of integer；
存放的元素为0 - N-1(1A[j]（i<>j）。例如当N=6时，有：A=（4，3，0，5，1，2）。此时，数组A的编码定义如下：A[0]编码为0,A[i]编码为：在A[0]，A[1]，…，A[i-1]中比A[i]的值小的个数i=1，2，…，N-1）
上面数组A的编码为：B=（0，0，0，3，1，2）
要求编程解决以下问题：
(1)给出数组A后，求出其编码；
(2)给出数组A的编码后，求出A中的原数据

Input

第一行为一个正整数q，表示要解决的第（q）问题
第二行为一个正整数n
第三行为n个整数

Output

第（1）问题输出＂B = ＂和数组B中的数
第（2）问题输出＂A = ＂和数组A中的数

Sample Input

1
8
1 0 3 2 5 6 7 4
Sample Output

B = 0 0 2 2 4 5 6 4

分析：第一问都会不说了，第二问从后往前做因为最后一个数总是确定的，自己想想为什么。。。

代码

const
  maxn=10000;
var
  a,b:array[0..maxn] of longint;
  f:array[0..maxn] of boolean;
  i,j,n,q,p:longint;

begin
  readln(q);
  readln(n);
  for i:=1 to n do
    read(a[i]);
  if q=1
    then begin
           for i:=1 to n do
             for j:=1 to i-1 do
               if a[j]<a[i] then inc(b[i]);
           write('B = ');
         end
    else begin
           for i:=n downto 1 do
             begin
               p:=-1;
               for j:=0 to n-1 do
                 if not f[j] then
                   begin
                     inc(p);
                     if a[i]=p then break;   
                   end;
               b[i]:=j;
               f[j]:=true;
             end;
           write('A = ');
         end;
  for i:=1 to n do
    write(b[i],' ');
end.