Образование массива из 2х заданных

[ziker99]

Дана задача:
Даны 2 набора чисел М1 и М2. Вывести М3 набор, имеющий только общие элементы М1 и М2.
Пример
М1 - 3 1 3 4 2 4 12 11 9 3
М2 - 4 15 3 1 15 1 12 8 8 9

Пример набора М3
4 3 1 12 9


Как я понял, надо, чтобы программа каждый элемент 1-го массива проверяла со всеми элементами 2-го массива при этом записывая их куда-нибудь, думаю, что должно что-то вроде такого:

procedure TForm1.Button1Click(Sender: TObject);
var
m1,m2: string;
i,k,g: integer;
begin
k:=1;
m1:= edit1.text;
m2:= edit2.text;
if length(m1)>length(m2) then g:=length(m1) else g:=length(m2);
for i:=1 to g do
if m1[k]=m2[i] then begin
edit3.Text:=edit3.text+m1[k];
inc(k);
end;
end;

[Aleksandr H.]

const
 a:array[1..10] of integer = (3,1,3,4,2,4,12,11,9,3);
 b:array[1..10] of integer = (4,15,3,1,15,1,12,8,8,9);
var
 c,d:array [1..11] of integer;
 i,j,k,m:byte;
 f:boolean;
begin
 m:=0;
 for i:=1 to 10 do
 begin
     for j:=1 to 10 do
     begin
          f:=true;
          if(a[i]=b[j]) then
          begin
           for k:=1 to m do
            if c[k]=a[i] then f:=false;
          if f=true then
           begin
             inc(m); c[m]:=a[i];
           end;
          end;
     end;
 end;
 for i:=1 to m do write(c[i]:4);
readln;
end.

[ura_111]

Попробуй сделать "цикл в цикле":

for k:=1 to length(m1) do
      for i:=1 to length(m2) do
          if m1[k]=m2[i]

тогда для каждого элемента "m1[k]" будет сверять с элементами массива "m2"... Но возникнет проблема с повторениями (для твоего примера "4")... Хотя, чтобы обойти эту сложность, нужно (перед записью очередного элемента в М3) нужно проверить не присутствует ли уже 4-ка в "М3"... Что-то вроде такого:

for k:=1 to length(m1) do
      for i:=1 to length(m2) do
          if m1[k]=m2[i] 
                | bool flag=false
                | for t:=1 to N_M3 do
                |        if m1[k]=m2[i]=m3[t]
                |             bool flag=true
                |  if flag==true
                |        N_M3=N_M3+1
                |        m3[N_M3]=m1[k]

пробуй... там посмотрим.

[ura_111]

Пока писал,
Aleksandr H. ответил.