var a,d:array[1..1000] of longint;

      n,i,j:longint;

begin

read(n);

for i:=1 to n do read(a[i]);

for i:=1 to n do

     for j:=1 to n do

     if a[i]>a[j] then d[i]:=d[i]+1;

for i:=1 to n do

write(d[i],'  ');

readln

end.

uses crt;
var a:array[0..2,0..100001] of longint;
    i,n:longint;
    f1,f2:text;
procedure sort(l,r,key:longint);
var i,j,x,t:longint;
begin
    i:=l;j:=r;x:=a[key,(l+r) div 2];
    repeat
        while a[key,i] < x do inc(i);
        while a[key,j] > x do dec(j);
        if i<=j then
            begin
                t:=a[1,i];a[1,i]:=a[1,j];a[1,j]:=t;
                t:=a[0,i];a[0,i]:=a[0,j];a[0,j]:=t;
                t:=a[2,i];a[2,i]:=a[2,j];a[2,j]:=t;
                inc(i);dec(j);
            end;
    until i>j;
    if l<j then sort(l,j,key);
    if i<r then sort(i,r,key);
end;
begin
    clrscr;
    assign(f1,'HEIGHT.INP');reset(f1);
    assign(f2,'HEIGHT.OUT');rewrite(f2);
    readln(f1,n);
    for i:=1 to n do
        begin
            read(f1,a[1,i]);
            a[0,i]:=i;
        end;
    sort(1,n,1);
    a[2,0]:=-1;
    for i:=1 to n do
        begin
            if a[1,i]>a[1,i-1] then a[2,i]:=i-1
                else a[2,i]:=a[2,i-1];
        end;
    sort(1,n,0);
    for i:=1 to n do write(f2,a[2,i],' ');
    close(f1);close(f2);
readkey;
end.