小鱼比可爱

题目描述

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

小鱼比可爱

输入输出格式

输入格式：

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

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

输出格式：

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

输入输出样例

输入样例#1：

6
4 3 0 5 1 2

输出样例#1：

0 0 0 3 1 2

说明

n<=100

 

 

 

var
 i,j,k,l,n:longint;
 a:array[0..1000000,1..2]of longint;
begin
 read(n);
 for i:=1 to n do read(a[i,1]);
 for i:=2 to n do
  for j:=1 to i-1 do
  if a[i,1]>a[j,1] then inc(a[i,2]);//不够就记数
  write(a[1,2]);
 for i:=2 to n do
  write(' ',a[i,2]);
end.