【usaco 2013 feb Bronze】信息传递

1757. 【usaco 2013 feb Bronze】信息传递（Message Relay）(relay.pas/cpp) 
(File IO): input:relay.in output:relay.out

时间限制: 1000 ms  空间限制: 262144 KB  具体限制  

Goto ProblemSet

题目描述

题目：
   农夫约翰的奶牛通常是按1到N进行编号的，奶牛们相互之间有一种特殊的信息传输方式。在信息传递的过程中，每只奶牛的信息最多传递到另一只奶牛，对于奶牛i，Fi表示他要传递信息的那只奶牛的编号，这里i和Fi肯定是不同的，如果Fi是0，则表示奶牛i没有要传递信息给其他的奶牛。
   不幸的是，奶牛们知道了这种传递信息的方式可能会导致一个死循环。如果一个奶牛传递信息最终会导致一个死循环，那么我们就说这只奶牛在死循环里面。
问题描述：
    请帮助奶牛们计算有多少头奶牛没有在死循环里面。

模拟每一头奶牛的传递，用布尔型数组把传过的编号标记，传到标记过的就是死循环。

const  maxn=1000;var  a:array[0..maxn] of longint;  f:array[0..maxn] of boolean;  ans,n,i,k:longint;begin  assign(input,'relay.in'); reset(input);  assign(output,'relay.out');rewrite(output);  readln(n);  for i:=1 to n do    readln(a[i]);  for i:=1 to n do    begin      fillchar(f,sizeof(f),false);      if a[i]=0 then        begin          inc(ans);          continue;        end;      k:=i;      inc(ans);      while a[k]<>0 do        begin          f[k]:=true;          k:=a[k];          if f[k] then            begin              dec(ans);              break;            end;        end;    end;  writeln(ans);  close(input);close(output);end.