Question

sa se scrie un program care sa afiseze toate elementele care se repeta intr un vector de numere intregi.

Answer 1

var
 
 a1,a2,a3:array of integer;
 i,j,k,f,n1,n2,n3:integer;
 
begin
 
 write('Numarul elementelor: ');
 read(n1);
 setlength(a1,n1);
 
 writeln;
 
 writeln('Elemente: ');
 
 for i:=0 to n1-1 do 
  read(a1[i]);
  
 writeln; 
 
 for i:=0 to n1-1 do 
  for j:=0 to i do
   if (a1[j]=a1[i]) and (i<>j) then begin
    inc(n2);
    setlength(a2,n2);
    a2[n2-1]:=a1[j];
    end;
    
 n3:=0;
 
 for i:=0 to n2-1 do
 begin
  f:=1;
  for j:=0 to n3-1 do if a3[j]=a2[i] then f:=0;
  if f=1 then
  begin
   inc(n3);
   setlength(a3,n3);
   a3[n3-1]:=a2[i];
  end;
 end;
 
 writeln('Asemenea:');

 for i:=0 to n3-1 do 
  write(a3[i], ' ');

end.