P1428 小魚比可愛

題目描述

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

輸入輸出格式

第一行輸入一個整數n，表示魚的數目。

第二行內輸入n個整數，用空格間隔，依次表示從左到右每只小魚的可愛程度。

行內輸出n個整數，用空格間隔，依次表示每只小魚眼中有多少只魚不如自己可愛。

輸入輸出樣例

64 3 0 5 1 2輸出樣例#1：
0 0 0 3 1 2
說明
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]);//記錄前面有幾條魚沒它可愛
write(b[i],' ');
end;
end.