program uniokepzes_egyedielemek;
const n = 10;
m = 12;
var a: array [1..n] of integer;
b: array [1..m] of integer;
c: array [1..n+m] of integer;
i, j, k, l: integer;
begin
randomize;
//tömbök elkészítése
for i:=1 to n do
begin
a[i]:=random(7);
write(a[i], ' ');
end;
writeln;
for j:=1 to m do
begin
b[j]:=random(7);
write(b[j], ' ');
end;
writeln;
//írjuk ki a c-be az a és b unióját!(egyesítsünk)
k:=0;
for i:=1 to n do begin
l:=1;
while (l<=k) and (c[l]<>a[i]) do
l:=l+1;
if l>k then begin
k:=k+1;
c[k]:=a[i];
end;
end;
//writeln(k);
for j:=1 to m do begin
i:=1;
while (i<=n) and (a[i]<>b[j]) do
i:=i+1;
if i>n then begin
l:=1;
while (l<=k) and (c[l]<>b[j]) do
l:=l+1;
if l>k then begin
k:=k+1;
c[k]:=b[j];
end;
end;
end;
writeln('az a es b unioja a c tombben: ');
for i:=1 to k do
write(c[i], ' ');
readln;
end.
cHJvZ3JhbSB1bmlva2VwemVzX2VneWVkaWVsZW1lazsKY29uc3QgbiA9IDEwOwogICAgICBtID0gMTI7CnZhciBhOiBhcnJheSBbMS4ubl0gb2YgaW50ZWdlcjsKICAgIGI6IGFycmF5IFsxLi5tXSBvZiBpbnRlZ2VyOwogICAgYzogYXJyYXkgWzEuLm4rbV0gb2YgaW50ZWdlcjsKICAgIGksIGosIGssIGw6IGludGVnZXI7CmJlZ2luCiAgcmFuZG9taXplOwogIC8vdMO2bWLDtmsgZWxrw6lzesOtdMOpc2UKICBmb3IgaTo9MSB0byBuIGRvCiAgYmVnaW4KICAgIGFbaV06PXJhbmRvbSg3KTsKICAgIHdyaXRlKGFbaV0sICcgJyk7CiAgZW5kOwogIHdyaXRlbG47CiAgZm9yIGo6PTEgdG8gbSBkbwogIGJlZ2luCiAgICBiW2pdOj1yYW5kb20oNyk7CiAgICB3cml0ZShiW2pdLCAnICcpOwogIGVuZDsKICB3cml0ZWxuOwogIC8vw61yanVrIGtpIGEgYy1iZSBheiBhIMOpcyBiIHVuacOzasOhdCEoZWd5ZXPDrXRzw7xuaykKICBrOj0wOwogIGZvciBpOj0xIHRvIG4gZG8gYmVnaW4KICAgIGw6PTE7CiAgICB3aGlsZSAobDw9aykgYW5kIChjW2xdPD5hW2ldKSBkbwogICAgICBsOj1sKzE7CiAgICBpZiBsPmsgdGhlbiBiZWdpbgogICAgICBrOj1rKzE7CiAgICAgIGNba106PWFbaV07CiAgICBlbmQ7CiAgZW5kOwogIC8vd3JpdGVsbihrKTsKICBmb3Igajo9MSB0byBtIGRvIGJlZ2luCiAgICBpOj0xOwogICAgd2hpbGUgKGk8PW4pIGFuZCAoYVtpXTw+YltqXSkgZG8KICAgICAgaTo9aSsxOwogICAgaWYgaT5uIHRoZW4gYmVnaW4KICAgICAgbDo9MTsKICAgICAgd2hpbGUgKGw8PWspIGFuZCAoY1tsXTw+YltqXSkgZG8KICAgICAgICBsOj1sKzE7CiAgICAgIGlmIGw+ayB0aGVuIGJlZ2luCiAgICAgICAgazo9aysxOwogICAgICAgIGNba106PWJbal07CiAgICAgIGVuZDsKICAgIGVuZDsKICBlbmQ7CiAgd3JpdGVsbignYXogYSBlcyBiIHVuaW9qYSBhIGMgdG9tYmJlbjogJyk7CiAgZm9yIGk6PTEgdG8gayBkbwogICAgd3JpdGUoY1tpXSwgJyAnKTsKICByZWFkbG47CmVuZC4K