Обработка массивов

[Camelot_2012]

Даны два массива: А(n) из n различных чисел и В(m) из m различных чисел. Получить новый массив, который cодержит элементы, которые есть хотя бы в одном мас¬сиве А или В (найти "объединение массивов"). Помогите пожалуйста!

[s-andriano]

Условие недостаточно конкретное и допускает множество решений с различными вариантами нового массива.
В частности, можно просто слить два массива в один без всякого анализа (условию в том виде, как оно сформулировано, это не противоречит).

PS. Есть еще один допустимый вариант: массив, содержащий ВСЕ числа.

[Camelot_2012]

Сообщение от s-andriano

Условие недостаточно конкретное и допускает множество решений с различными вариантами нового массива.
В частности, можно просто слить два массива в один без всякого анализа (условию в том виде, как оно сформулировано, это не противоречит).

PS. Есть еще один допустимый вариант: массив, содержащий ВСЕ числа.

Program first;
Uses Crt;
Const n = 5; m = 4;
Var A: array[1..n] of integer;
    B: array[1..m] of integer;
    C: array[1..m+n] of integer;
    k,i,j: integer;
    t:boolean;
begin
ClrScr;
     for i := 1 to n do
     begin
          Write('vvedite A[', i, '] = ');
          readln(A[i]);
end;
     for i := 1 to m do
     begin
          write('vvedite B[', i, ']= ');
          readln(B[i]);
end;    k:=n;
     for i := 1 to n do C[i]:=A[i];
          for i := 1 to m do
          begin
          t:=true;
            for j:=1 to n do
              if c[j]=b[i] then t:=false;
              if t then
              begin
              k:=k+1;
              C[k]:=B[i];
              end;
              end;
       for i := 1 to k do
          write(c[i]:4);
end.

Вот на подобие, только тут содержит модули тех элементов, которые есть и в А и в В.

[Camelot_2012]

Ой это и есть мое решение! Удалите тему!

[whatever]

Сообщение от Camelot_2012

Ой это и есть мое решение! Удалите тему!

. .