Răspuns :
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.
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.
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile disponibile v-au fost utile și inspiraționale. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, suntem aici pentru a vă ajuta. Ne face plăcere să vă revedem și vă invităm să adăugați site-ul nostru la favorite pentru acces rapid!