Guest User

Untitled

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