小鱼比可爱
2017-02-14 21:19
459 查看
题目描述
人比人,气死人;鱼比鱼,难死鱼。小鱼最近参加了一个“比可爱”比赛,比的是每只鱼的可爱程度。参赛的鱼被从左到右排成一排,头都朝向左边,然后每只鱼会得到一个整数数值,表示这只鱼的可爱程度,很显然整数越大,表示这只鱼越可爱,而且任意两只鱼的可爱程度[color=red]可能一样[/color]。由于所有的鱼头都朝向左边,所以每只鱼只能看见在它左边的鱼的可爱程度,它们心里都在计算,在自己的眼力范围内有多少只鱼不如自己可爱呢。请你帮这些可爱但是鱼脑不够用的小鱼们计算一下。
小鱼比可爱
输入输出格式
输入格式:第一行输入一个整数n,表示鱼的数目。
第二行内输入n个整数,用空格间隔,依次表示从左到右每只小鱼的可爱程度。
输出格式:
行内输出n个整数,用空格间隔,依次表示每只小鱼眼中有多少只鱼不如自己可爱。
输入输出样例
输入样例#1:6 4 3 0 5 1 2
输出样例#1:
0 0 0 3 1 2
说明
n<=100var
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.