var f,g:text;
    c,s,p,a:array[1..100001]of longint;
    r:array[1..100001]of byte;
    i,j,n,ip,x,y:longint;
    e:boolean;

begin
assign(f,'cerere.in');
reset(f);
readln(f,n);
for i:=1 to n do begin
   read(f,c[i]);
end;
for i:=1 to n-1 do begin
   read(f,x,j);
   a[j]:=x;
   if c[j]=0 then s[j]:=0
             else begin
                  ip:=j;
                  for y:=1 to c[j] do j:=a[j];
                  s[ip]:=s[j]+1;
                  end;
end;
assign(g,'cerere.out');
rewrite(g);
for i:=1 to n do write(g,s[i],' ');
close(g);
end.