Cod sursa(job #41322)
Utilizator | Trimbitas Viorel Stefan Aymd | Data | 28 martie 2007 10:13:54 |
---|---|---|---|
Problema | Cerere | Scor | 50 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.56 kb |
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.