洛谷-P1428-小鱼比可爱
题目描述:
人比人,气死人;鱼比鱼,难死鱼。小鱼最近参加了一个“比可爱”比赛,比的是每只鱼的可爱程度。参赛的鱼被从左到右排成一排,头都朝向左边,然后每只鱼会得到一个整数数值,表示这只鱼的可爱程度,很显然整数越大,表示这只鱼越可爱,而且任意两只鱼的可爱程度[color=red]可能一样[/color]。由于所有的鱼头都朝向左边,所以每只鱼只能看见在它左边的鱼的可爱程度,它们心里都在计算,在自己的眼力范围内有多少只鱼不如自己可爱呢。请你帮这些可爱但是鱼脑不够用的小鱼们计算一下。
输入样例:
6
4 3 0 5 1 2
输出样例:
0 0 0 3 1 2
解题思路:
开个数组,然后一个个枚举就好了。
var
n,i,j:longint;
a,b:array[0..10000]of longint;
begin
fillchar(b,sizeof(b),0);
readln(n);
for i:=1 to n do
begin
read(a[i]);
for j:=i downto 1 do
if a[i]>a[j] then inc(b[i]);
write(b[i],' ');
end;
end.