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

Posted by obzor under Delphi

Из массива А удалить те элементы, которые встречаются в двух массивах и в А и в В по 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.

тема на форуме

Случайные статьи

• Как вывести слово в Label по одной букве с использованием таймера?
• можно ли как то открыть файл в одной программе два раза сразу?
• Как вычисляют число Пи?
• Выбор бюджетного планшета
• Домашний сервер
• Indy in Depth, глубины Indy
• Создать каталог при сохранении если он отсутсвует
• Как на JS и PHP сделать страницу с переключением активных вкладок
• Как запустить MS Outlook с прикрепленным файлом
• Как откомпилировать программу и получить EXE файл