P1428 小魚(yú)比可愛(ài)

題目描述

人比人，氣死人；魚(yú)比魚(yú)，難死魚(yú)。小魚(yú)最近參加了一個(gè)“比可愛(ài)”比賽，比的是每只魚(yú)的可愛(ài)程度。參賽的魚(yú)被從左到右排成一排，頭都朝向左邊，然后每只魚(yú)會(huì)得到一個(gè)整數(shù)數(shù)值，表示這只魚(yú)的可愛(ài)程度，很顯然整數(shù)越大，表示這只魚(yú)越可愛(ài)，而且任意兩只魚(yú)的可愛(ài)程度[color=red]可能一樣[/color]。由于所有的魚(yú)頭都朝向左邊，所以每只魚(yú)只能看見(jiàn)在它左邊的魚(yú)的可愛(ài)程度，它們心里都在計(jì)算，在自己的眼力范圍內(nèi)有多少只魚(yú)不如自己可愛(ài)呢。請(qǐng)你幫這些可愛(ài)但是魚(yú)腦不夠用的小魚(yú)們計(jì)算一下。

輸入輸出格式

第一行輸入一個(gè)整數(shù)n，表示魚(yú)的數(shù)目。

第二行內(nèi)輸入n個(gè)整數(shù)，用空格間隔，依次表示從左到右每只小魚(yú)的可愛(ài)程度。

行內(nèi)輸出n個(gè)整數(shù)，用空格間隔，依次表示每只小魚(yú)眼中有多少只魚(yú)不如自己可愛(ài)。

輸入輸出樣例

64 3 0 5 1 2輸出樣例#1：
0 0 0 3 1 2
說(shuō)明
n<=100
var
a,b:array[1..101]of longint;
n,i,j,ans:longint;
begin
read(n);
for i:=1to ndo
begin
read(a[i]);
for j:=1 to i-1do
if a[i]>a[j] theninc(b[i]);//記錄前面有幾條魚(yú)沒(méi)它可愛(ài)
write(b[i],' ');
end;
end.