PASCALZINDOCAPICUA

@dif Editei o post

Então ve se ta certinho aqui Program IntersecaoConjuntos ; uses CRT; type vetor = array[1..100] of real; procedure LeiaVetor( tam: integer; var V: vetor ); var i: integer; begin for i:=1 to tam do read(V); end; procedure ImprimeVetor( tam: integer; V: vetor); var i: integer; begin for i:=1 to tam do write(V:2:2, ' ' ); end; procedure DetermineConjuntoIntersecao ( A, B: vetor; var I: vetor; m, n: integer; var p: integer ); var ii, k: integer; Achou: boolean; Begin p:=0; for ii:=1 to n do Begin k:=1; Achou:= false; while (k<=m) and (not Achou) do Begin if (A[ii] = B[k]) then begin p:=p+1; I[p]:=A[ii]; Achou:=true; end; k:=k+1; End; End; End; var m,n,p: integer; A,B: vetor; I: vetor; Begin ClrScr; writeLn( 'Determina a interseção de dois conjuntos'); writeLn; writeLn( 'Entre com o tamanho do primeiro conjunto:'); read(n); writeLn; writeLn( 'Entre com o tamanho do segundo conjunto:'); read(m); writeLn( 'Entre com os elementos do primeiro conjunto:'); LeiaVetor(n, A); writeLn( 'Entre com os elementos do segundo conjunto:'); LeiaVetor(m, B); DetermineConjuntoIntersecao(A,B,I,m,n,p); writeLn( 'Conjunto Interseção:'); ImprimeVetor(p,I); writeLn; End.