Заданы целочисленные массивы X(n) и Y(m) , каждый из которых содержит неповторяющиеся элементы. Объединить массивы X и Y , обеспечив неповторяемость элементов нового массива — Pascal(Паскаль)

uses crt;
const nmax=100;
var x,y:array[1..nmax] of byte;
    n,m,i,j,k:byte;
    s:set of byte;
begin
clrscr;
randomize;
repeat
write('Размер массива X n=');
readln(n);
until n in [1..nmax];
repeat
write('Размер массива Y m=');
readln(m);
until m in [1..nmax];
writeln('Исходный массив X:');
{создаем случайный массив из неповторяющихся чисел}
s:=[];
for i:=1 to n do
 begin
  repeat
   x[i]:=random(n+m);
  until not (x[i] in s);
  s:=s+[x[i]];
  write(x[i],' ');
 end;
writeln;
writeln;
writeln('Исходный массив Y:');
{также второй}
s:=[];
for i:=1 to m do
 begin
  repeat
   y[i]:=random(n+m);
  until not (y[i] in s);
  s:=s+[y[i]];
  write(y[i],' ');
 end;
writeln;
writeln;
{объединяем}
for i:=1 to m do
 begin
  k:=0;
  for j:=1 to n do
  if y[i]=x[j] then k:=1;
  if k=0 then
   begin
    n:=n+1;
    x[n]:=y[i];
   end;
 end;
writeln('Объединенный массив:');
for i:=1 to n do
write(x[i],' ');
readln
end.

Leave a Comment

22 + = 32