Ajuda vetor em pascal nao mostrar numeros repetidos

[vinicionagel]

Galera preciso de sua ajuda, nesse programa: Entrar com 2 vetores um de 10 e outro de 20 elementos e mostre os elementos

comuns aos vetores. Lembre-se de que os elementos podem se repetir mas não

podem aparecer repetidos.

Fiz isso aqui mais nao consigo fazer isso lembre-se de que os elementos podem se repetir mas não

podem aparecer repetidos.

ta ai o trecho que eu fiz

Program Pzim ;

 var vetor: array[1..10] of integer;
     vetor1: array [1..5] of integer;
     i,j,cont,aux:integer;
 Begin
 cont:=1;
 while(i<5) do
 begin
 i:=i+1;
 writeln('Digite 10 numeros'); 
 readln(vetor1[i]);
 end;
 i:=0;
 while (i<10) do
 begin
 i:=i+1;
 writeln('Digite 20 numeros');
 readln(vetor[i]);
 end;
 //
 for i:= 1 to 10 do
 for j:= 1 to 5 do
 begin
 aux:=vetor[cont];
 if (vetor1[j] = vetor[i])  or (aux <> vetor[i]) then
 begin
 writeln(vetor[i]);
 end;
  end;


 End.

valeu quem puder ajudar agradeço mesmo, pois estou pelando pra consiguir.

[valecovo]

Eu colocaria os dois vectores num outro (3º. vector), ordenaria os dados e depois listaria os repetidos apenas um vez.

[Visitante: fodomxd]

Eu colocaria os dois vectores num outro (3º. vector), ordenaria os dados e depois listaria os repetidos apenas um vez.

faria o mesmo

[Daneil igor]

Faz isso aí, mas eu modifiquei ja que você disse que e 1 de 10 e outra de 20

o seu codigo ta com 1 de 10 outro de 5 elementos :

Program Pzim ;
uses
    CRT;
 var vetor: array[1..10] of integer;
     vetor1: array [1..20] of integer;
    Vetor2: array[1..10] of integer;
     i,j,cont,aux,k:integer;

 Begin
 CLRSCR;
 cont:=1;
 aux:=0;
 while(i<10) do
 begin
 i:=i+1;
 writeln('Digite o n°',i,' do primeiro vetor');
 readln(vetor[i]);
 end;
 i:=0;
 while (i<20) do
 begin
 i:=i+1;
 writeln('Digite o n°',i,' do segundo vetor');
 readln(vetor1[i]);
 end;
 //
 Writeln;
 Write('Numeros comuns entre os vetores: ');
 for i:= 1 to 10 do
 for j:= 1 to 20 do
 begin

 if (vetor1[j] = vetor[i]) then
 begin
 If
((vetor1[j]<>vetor2[1])and(vetor1[j]<>vetor2[2])and(vetor1[j]<>vetor2[3])and(vetor1[j]<>vetor2[4])and(vetor1[j]<>vetor2[5])and(vetor1[j]<>vetor2[6])and(vetor1[j]<>vetor2[7])and(vetor1[j]<>vetor2[8])and(vetor1[j]<>vetor2[9])and(vetor1[j]<>vetor2[10]))then
 begin
 for k:=1 to 10 do
 if (vetor2[i]=0)then
 begin
 vetor2[i]:=vetor[i];
 break;
 end;
  write(vetor[i],'  ');
 end;
 end;

  end;

readkey;
 End.

Obs.: Da para reduzir muito os codigos deste programa, mas conservei do jeito que você fez pra você entender melhor o que eu fiz

Falou