小鱼比可爱

洛谷-P1428-小鱼比可爱

题目描述：

人比人，气死人；鱼比鱼，难死鱼。小鱼最近参加了一个“比可爱”比赛，比的是每只鱼的可爱程度。参赛的鱼被从左到右排成一排，头都朝向左边，然后每只鱼会得到一个整数数值，表示这只鱼的可爱程度，很显然整数越大，表示这只鱼越可爱，而且任意两只鱼的可爱程度[color=red]可能一样[/color]。由于所有的鱼头都朝向左边，所以每只鱼只能看见在它左边的鱼的可爱程度，它们心里都在计算，在自己的眼力范围内有多少只鱼不如自己可爱呢。请你帮这些可爱但是鱼脑不够用的小鱼们计算一下。

输入样例：
6
4 3 0 5 1 2

输出样例：
0 0 0 3 1 2

解题思路：

开个数组，然后一个个枚举就好了。

var
        n,i,j:longint;
        a,b:array[0..10000]of longint;
begin
        fillchar(b,sizeof(b),0);
        readln(n);
        for i:=1 to n do
        begin
                read(a[i]);
                for j:=i downto 1 do
                        if a[i]>a[j] then inc(b[i]);
                write(b[i],' ');
        end;
end.