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.
Похожие записи/страницы:
- Заданы целочисленные массивы Х(n) и Y(m),каждый из которых содержит неповторяющиеся элементы.Объединить массивы…
- Объединить массивы А и В так, чтобы сначала располагались неотрицательные элементы в порядке убывания, затем…
- Дан целочисленный массив с количеством элементов n. Сжать массив,выбросив из него каждый второй элемент -…
- В одномерном массиве, состоящем n вещественных элементов, изменить порядок следования элементов массива на…
- Поменять местами 1-ую половину массива со 2-ой половиной,не используя дополнительный массив - Pascal(Паскаль)
- Дано число N и массив a(k), k=от 1 до N. Среди элементов данного массива имеются повторяющиеся. Получить массив…
- Для данного массива найти такие значения K,что К-я строка совпадает с К-столбцом - Pascal(Паскаль)
- Поменять местами попарно элементы по следующему правилу: 1-ый с 3-им, 2 с 4 ,5 с 7, 6 с 8 и т.д.Размерность…