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

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.

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

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

• Рассчитать процент успеваемости студентов
• ВО ВВЕДЕННОЙ СТРОКЕ ПОМЕНЯТЬ ПЕРВЫЕ БУКВЫ КАЖДОГО СЛОВА НА ПРОПИСНЫЕ
• Преобразование RGB цвета в строку
• Создать список папок и вложенных в них файлов из выбранной директории
• Общие принципы работы с сайтом vkontakte.ru
• Плавные появление и исчезновение формы
• Как отредактировать свой шаблон.xlt из книги.xls, созданной на его основе?
• Вырезать из http заголовков get параметр
• Получение данных из тега jquery
• Макрос импорта Ексель файлов из папки в листы одной книги с последующим выполнения макросов