others/volume1/035.pas


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

uses clib;

var
  n, a: int16;
  b: array of boolean;

begin
  readln(n);
  setlength(b, n);
  for n := n - 1 downto 0 do
    b[n] := false;
  for n := 1 to length(b) do
    begin
      read(a);
      if (a <= 0) or
         (a > length(b)) then
        continue;
      b[a - 1] := true
    end;
  writeln(all(b))
end.