P1428 小鱼比可爱

 P1428 小鱼比可爱

题目描述

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

输入输出格式

输入格式：

第一行输入一个整数n，表示鱼的数目。

第二行内输入n个整数，用空格间隔，依次表示从左到右每只小鱼的可爱程度。

输出格式：

行内输出n个整数，用空格间隔，依次表示每只小鱼眼中有多少只鱼不如自己可爱。

输入输出样例

输入样例#1：

6
4 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:=1 to n do

begin

read(a[i]);

for j:=1 to i-1 do

if a[i]>a[j] then inc(b[i]);//记录前面有几条鱼没它可爱

write(b[i],' ');

end;

end.