сравнить 2 массива...

[pobedin]

здравствуйте!
есть 2 массива. Найти в них разные числа, которые не совпадают и запихнуть в третий. собственно выходит какая-то муть, то верно, то 0 вылетают. через 2 цикла делал, так вообще бред вышел. что не так делаю?

var
  i, j, k, min, n: integer;
  a: array[1..10] of integer; //1mas
  b: array[1..10] of integer; //2mas
  c: array[1..10] of integer; //3 mas - rezultata unik chisel
begin
  j := 1;
  randomize;
  for i := 1 to 5 do
    a[i] := random(9);
  for i := 1 to 5 do
    b[i] := random(9);
  for i := 1 to 5 do
    write(a[i]);
  writeln;
  for i := 1 to 5 do
    write(b[i]);
  //
  for i := 1 to 5 do
    if (a[i] <> b[j]) and (a[i] <> b[j + 1]) and (a[i] <> b[j + 2]) and
      (a[i] <> b[j + 3]) and (a[i] <> b[j + 4]) then
    begin
      c[k] := a[i];
      inc(k);
    end
    else if j <> 5 then
      inc(j);
  writeln;
  for i := 1 to 5 do
    write(c[i]);
  writeln;
  //
  min := c[1];
  for i := 1 to 5 do
    if c[i] < min then
      min := c[i];
  writeln('minimalnoe=', min);
  write('press any key');
  Readln;
end.

результат :
1 мас - 03820
2 мас - 07481
3 мас - 20000,
а должно быть - 32

[Stilet]

if (a[i] <> b[j]) and (a[i] <> b[j + 1]) and (a[i] <> b[j + 2]) and
(a[i] <> b[j + 3]) and (a[i] <> b[j + 4]) then

Это что?
Зачем столько условий? Оставь только (a[i] <> b[j])

[Grag]

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

Найти в них разные числа, которые не совпадают и запихнуть в третий.

А почему запихиваете только из массива a? из массива b уже не надо?

[pobedin]

нужно только те числа из A, которых нету в массиве B.
а что мне даст одно условие, нужно будет цикл двойной. так что-то не выходит. а так я проверяю 1 число А со всем B, затем наращиваю число А и снова...

[Grag]

У Вас если a[i] не равно всем пяти элементам массива в[j] (в диапазоне j=1..5), то в массиве с будет пять элементов a[i], потом не известно какое значение примет индекс k массива c...
Т.е. изначально нужно инициализировать переменную k...

[Stilet]

нужно только те числа из A, которых нету в массиве B.

var
  i, j, k, min, n: integer;
  a: array[1..5] of integer; //1mas
  b: array[1..5] of integer; //2mas
  c: array[1..10] of integer; //3 mas - rezultata unik chisel
  bb:boolean;
begin
  j := 1;n:=1;
  randomize;
  for i := 1 to 5 do      a[i] := random(15);
  for i := 1 to 5 do      b[i] := random(15);
  {$o-}
  for i:=1 to 5 do begin  bb:=true;
   for j:=1 to 5 do begin
    if a[j]=b[i] then begin
     bb:=false;break;
    end;
   end;
   if bb then begin
    c[n]:=a[i];inc(n);
   end;
  end;

  { TODO -oUser -cConsole Main : Insert code here }
end.

Так подойдет?
Тут без вывода на экран.

[pobedin]

Stilet, вот результат...
0101119
5111612
3 мас - 011900
1 есть 2 двух массивах, значит в 3-ем не должно быть... =(
и иногда 1-ый массив больше 2-го - вот этого я совсем не понимаю. может делфи глюкает о_О

[Serge_Bliznykov]

в алгоритме Стилет была одна опечатка
надо :

    if a[i]=b[j] then begin

вот код целиком:

const Nm = 7;
var
  i, j, k, min, n: integer;
  a: array[1..Nm] of integer; //1mas
  b: array[1..Nm] of integer; //2mas
  c: array[1..Nm*2] of integer; //3 mas - rezultata unik chisel
  bb:boolean;
begin
  j := 1;n:=1;
(*  randomize;
  for i := 1 to Nm do a[i] := random(15);
  for i := 1 to Nm do b[i] := random(15);
*)
  a[1] := 0; a[2] := 1; a[3] := 0; a[4] := 1;
  a[5] := 1; a[6] := 1; a[7] := 9;

  b[1] := 5; b[2] := 1; b[3] := 1; b[4] := 1;
  b[5] := 6; b[6] := 1; b[7] := 2;

  {$o-}
  for i:=1 to Nm do begin
   bb:=true;
   for j:=1 to Nm do begin
    if a[i]=b[j] then begin
     bb:=false;break;
    end;
   end;
   if bb then begin
    c[n]:=a[i];inc(n);
   end;
  end;

  Writeln('---- rezultat. massiv C: ----');
  for i:=1 to n-1 do
     Write(c[i]:3);
  WriteLn;
  Readln;

end.

[pobedin]

понятно. спасибо