Ai aici o rezolvare. Am notat cu V1 si V2, A si B iar V3 reprezinta reuniunea. Nu l-am testat ca nu mai am Pascal instalat de ani buni. Principiul de rezolvare e urmatorul:
In vectorul reuniune copiezi primul vector.
Dupa parcurgi al doilea vector element cu element si verifici daca elementul din v2 este sau nu in primul vector. Daca nu este atunci il adaugi la coada la v3.
program HelloWorld;
type vector=array[1..100] of integer;
var v1,v2,v3:vector;
n1,n2,n3,i,j:integer;
sem:boolean;
begin
write('n1=');
readln(n1);
for i:=1 to n1 do
write('v1[',i,']=');
readln(v1[i]);
write('n2=');
readln(n2);
for i:=1 to n1 do
write('v2[',i,']=');
readln(v2[i]);
n3:=n1;
for i:=1 to n1 do
v3[i]:=v1[i];
for i:=1 to n2 do
begin
sem:=false;
for j:=1 to n1 do
if(v2[i]=v1[j])then
sem:=true;
if(sem=false)then
begin
n3:=n3+1;
v3[n3]:=v2[i];
end;
end;
for i:=1 to n3 do
write(v3[i],' ');
end.
