Guest User

Untitled

a guest
Jun 21st, 2018
78
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.60 KB | None | 0 0
  1. var
  2.     a:array[1..1000000] of integer;
  3.  
  4. function bin(l, r:integer;var x:integer):integer;
  5. var
  6.     m:integer;
  7.  
  8. begin
  9.      if l>r then bin:=-1
  10.      else begin
  11.         m:=(l+r) div 2;
  12.         if a[m]<x then bin:=bin(m+1,r,x)
  13.         else if a[m]>x then bin:=bin(l,m-1,x)
  14.         else bin:=m;
  15.      end;
  16. end;
  17.  
  18. var
  19.     n, m, i: integer;
  20.     c: integer;
  21.     b: array [1..1000000] of integer;
  22.  
  23. begin
  24.      read(n);
  25.      for i:=1 to n do read(a[i]);
  26.  
  27.      read(m);
  28.      for i:=1 to m do read(b[i]);
  29.  
  30.      for i:=1 to m do
  31.          if (bin(1,n, b[i])<>(-1)) then
  32.             inc(c);
  33.  
  34.      write(c);
  35. end.
Add Comment
Please, Sign In to add comment