diff options
Diffstat (limited to 'others/volume1/035.pas')
-rw-r--r-- | others/volume1/035.pas | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/others/volume1/035.pas b/others/volume1/035.pas new file mode 100644 index 0000000..ccf9560 --- /dev/null +++ b/others/volume1/035.pas @@ -0,0 +1,29 @@ +var + n, a: int16; + b: array of boolean; + +function all(b: array of boolean): boolean; + var + i: int16; + begin + for i := 0 to length(b) - 1 do + if not b[i] then + exit(false); + all := true + end; + +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. |