Удаление элементов

[manchester_alan]

Из массива А удалить те элементы, которые встречаются в двух массивах и в А и в В по 2 раза...

Помогите разобраться..

[tsar_]

В каком месте в ступор впадаешь?

[Stilet]

удалить

Пересоздавать массивы разрешено?
или они статические?

[manchester_alan]

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

Пересоздавать массивы разрешено?
или они статические?

ввести 2 массива и вывести первый с уже удаленными этими элементами...

без разницы..

[Serge_Bliznykov]

const n=8; m=12;
var  A : array[1..n] of integer;
  B : array[1..m] of integer;
  i, j, count : integer;
begin
  {ввод массивов}
  for i:=1 to n do begin Write('Введите A[',i,']='); ReadLn(A[i]); end;
  for i:=1 to m do begin Write('Введите B[',i,']='); ReadLn(B[i]); end;

  {подсчёт и вывод }
  for i:=1 to n do begin
    Count:=0;
    for j:=1 to n do 
      if A[j]=A[i] then Inc(Count);

    if Count<>2 then {массив B уже можно не проверять}
         Write(A[i],' ')
    else begin {A[i] встречается в массиве A ровно два раза, 
                       тогда проверим,  сколько раз оно встречается в массиве B}
       Count:=0;
       for j:=1 to m do 
           if B[j]=A[i] then Inc(Count);
       if Count<>2 then {в массиве B значение встречается не два раза}
             Write(A[i],' ')
    end;
  end;
end.

так устроит?
p.s. Не проверял.

[manchester_alan]

все отлично