diff options
Diffstat (limited to 'others/volume1/031.pas')
-rw-r--r-- | others/volume1/031.pas | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/others/volume1/031.pas b/others/volume1/031.pas new file mode 100644 index 0000000..d87ad88 --- /dev/null +++ b/others/volume1/031.pas @@ -0,0 +1,28 @@ +var + n, m, i, j, k, l: int16; + a: array of int16; + +begin + readln(n, m); + setlength(a, m); + for i := 0 to m - 1 do + a[i] := 0; + for i := 1 to n do + begin + read(k); + for j := 1 to k do + begin + read(l); + inc(a[l - 1]) + end + end; + k := 0; + for i := 0 to m - 1 do + if a[i] = n then + inc(k); + l := 0; + for i := 0 to m - 1 do + if a[i] = 0 then + inc(l); + writeln(k, ' ', l) +end. |