var f,g:text;i,j,x,nr,n,y:longint;k,t:array[1..100000]of longint;
begin
assign(f,'cerere.in');reset(F);
read(f,n);
for i:=1 to n do read(f,k[i]);
for i:=1 to n-1 do begin read(f,x,y);t[y]:=x;end;
assign(g,'cerere.out');rewrite(g);
for i:=1 to n do begin
x:=i;nr:=0;
while k[x]<>0 do begin
for j:=1 to k[x] do x:=t[x];
inc(nr);end;
write(g,nr,' ');
end;
close(F);
close(g)
end.