Удалить элементы массива.

[Маx]

Дано 2 массива.
а: 1 .. 20
b: 1 .. n
Нужно удалить из массива b элементы, которые совпадают с єлементами массива a и записать в массив с.
Например:
а: 1,5,6,8,10,15,17 ....
b: 2,3,4,8,9,15,17 ...
Массив c должен получиться таким: 2,3,4,9 ...
Помогите пожалуйста

[Sciv]

И чем же тебе помочь?
Код покажи хоть, что-ли. И задачу почетче напиши - из каких условий n берется, например, совсем непонятно. Какая размерность массива c - тоже неясно: от 1 до 20 или от 1 до n?

[Yurk@]

как-то так:

var 
i, j, g : integer;
KeyFound : boolean;
...
begin
n:=10; // длина масива В (для примера)
g:=1; // перывй элемент будущего массива С (предолагается что он динамический)
for i:=1 to n do // ходим по массиву В
  begin
    KeyFound:=False;  // считаем что совпадений нет
    for j:=1 to 20 do // ходим по массиву А
    begin
      KeyFound:=B[i]=A[j]; // проверяем на совпадение
      if (j=20) and (KeyFound=False) // определяем что закончился массив А и совпадений не найдено
        then 
        begin
          C[g]:=B[i];
          KeyFound:=False;
          g:=g+1;
        end;
    end;
  end;
end;

зы. эт первое что пришло в голову))

[Маx]

Почему-то при использовании этого кода удаляются не все числа ... (

[veniside]

у Yurk@ ошибка в этой строке:

KeyFound:=B[i]=A[j];

а от себя предложу решение, которое требует много памяти, но более эффективно при больших размерностях массивов a и b (больше 10000):

const
  n = 10;
 
var
  i: integer;
  a: array[1..20] of integer;
  b: array[1..n] of integer;
  c: array[1..n] of integer;
  d: array[-32768..32767] of boolean;
  count: integer;
begin
  randomize;
  //
  for i := 1 to 20 do a[i] := random(65535) - 32768;
  for i := 1 to n  do b[i] := random(65535) - 32768;
  //
  for i := 1 to n  do d[b[i]] := true;
  for i := 1 to 20 do d[a[i]] := false;
  //
  count := 0;
  for i := -32768 to 32767 do
    if (d[i]) then begin
      //
      inc(count);
      c[count] := i;
    end;
  //
  for i := 1 to count do
    write(c[i], ', ');
end.

http://ideone.com/VOUeK

Если известен диапазон чисел в массивах, можно d сделать меньше.

Хотя, не советую сдавать преподу такой вариант решения, вряд ли его оценят по-достоинтсву

[Маx]

Спасибо, очень помогли!

[eoln]

А если массивы упорядочены, то можно за один проход по каждому массиву

const
  n=7; m=7;
var
  i, j, k : integer;
  a: array[1..n] of integer = (1,5,6,8,10,15,17);
  b: array[1..m] of integer = (2,3,4,8,9,15,17);
  c: array[1..n+m] of integer;
begin
  i := 1;
  j := 1;
  k := 1;
  while j<=m do begin
    while (a[i] < b[j]) and (i < n) do inc(i);
    if a[i] = b[j] then inc(i)
    else if (a[i] > b[j]) or (i = n) then begin
      c[k] := b[j];
      inc(k);
    end;
    inc(j);
  end;
  for i := 1 to k-1 do write(c[i], ' ');
  readln
end.

Можно ещё модифицировать случай при (i = n), добавив ещё один цикл заполнения остатка из массива b, и по его завершению сразу выпрыгнуть к выводу данных (всеми любимый goto ).

[TinMan]

Gentlemen, вы чего? Венисайд, при всем к тебе уважении.. ты сегодня выспался? )) Зачем такой расход памяти? А если бы диапазон был LongInt - так и стал бы работать с массивом 4 Гига? А если еще больше?.. Задача не стоит выеденного яйца, при этом упорядоченность (откуда ты ее взял, eoln?) тут совершенно ни при чем ), все и так делается за один проход. И уж конечно без goto..

const
  m= 20;
  n = 10;
var
  i,k: word;
  a,b,c: array[1..m] of integer;

procedure PrintArray(s: string; a: array of integer; n: word);
begin
  writeln(s);
  for n:=0 to n-1 do write(a[n]:4);
  writeln
end;

begin
  randomize; 
  writeln('initial data:');
  for i := 1 to m do a[i] := random(5);
  PrintArray('a:',a,m);
  for i := 1 to n  do b[i] := random(5);
  PrintArray('b',b,n);
  k:= 0;
  for i:=1 to n do if a[i]=b[i] then begin
    inc(k);
    c[k]:= b[i];
  end
  else
    b[i-k]:= b[i];
  writeln('modified, and built data:');
  PrintArray('b:',b,n-k);
  PrintArray('c:',c,k)
end.