Найти элементы массива К, не имеющие себе равных в массиве L - Turbo Pascal

  1. (Векторы) Даны два целочисленных массива K(m) и L(n). Найти элементы массива К, не имеющие себе равных в массиве L. Заранее спасибо!!!


textual

Код к задаче: «Найти элементы массива К, не имеющие себе равных в массиве L - Turbo Pascal»

uses crt;
const nmax=100;
type mas=array[1..nmax] of integer;
procedure massiv(var a:mas;var n:byte;c:char);
var i:byte;
begin
repeat
write('Размер массива ',c,' до ',nmax,' =');
readln(n);
until n in [1..nmax];
writeln('Массив ',c);
for i:=1 to n do
 begin
  a[i]:=random(20);
  write(a[i]:4);
 end;
writeln;
end;
var K,L:mas;
    m,n,i,j,q,r:byte;
begin
clrscr;
randomize;
massiv(K,m,'K');
massiv(L,n,'L');
writeln('Элементы массива K, которых нет в массиве L');
q:=0;
for i:=1 to m do
 begin
  j:=1;
  r:=0;
  while(j<=n)and(r=0) do
  if L[j]=K[i] then r:=1
  else inc(j);
  if r=0 then
   begin
    write(K[i]:4);
    q:=1
   end
 end;
if q=0  then write('Таких элементов нет');
readln
end.

СДЕЛАЙТЕ РЕПОСТ

12   голосов, оценка 4.167 из 5



Похожие ответы
  1. В массиве A[1..N] найти максимальное число и уменьшить все элементы массива на 5. Вывести полученную последовательность на экран. Помогите пожалуйста!

  1. Ввести с клавиатуры одномерный массив из 5 чисел , подсчитать сумму элементов больше нуля и вывести результат на экран монитора.

  1. Ввести с клавиатуры двумерный массив из 9 чисел, подсчитать сумму элементов всего массива

  1. Доброго времени суток, хотел бы попросить у Вас помощи в решение задач в turbo pascal:Разработка в среде Turbo Pascal программы формирования и обработки элементов одномерного массива: 1) Сформируйте двухмерный целочисленный массив S(4x9), используя генератор случайных чисел на интервале (-10, 6). Элементы массива вывести на экран в виде матрицы. 2) Преобразуйте массив S в одномерный массив X. Полученный массив вывести на экран. 3) Вычислите среднегеометрическое значение каждых третьих элементов последней четверти массива X. 4) Среди четных по значению элементов массива X определите наименьший. 5) упорядочить принадлежащие интервалу [a/2;b/2] элементы первой половины массива X по возрастанию квадратов значений. Заранее благодарен за помощь.

  1. Дана целочисленная матрица размерности (nxn ). 1. Если элементы, стоящие на главной диагонали являются четными числами, то к каждому максимальному элементу столбца добавить минимальный элемент соответствующей строки. В противном случае матрицу оставить без изменения.

  1. Дан целочисленный вектор А(n). Отсортировать его элементы методом просеивания.

  1. Здравствуйте! Запутался в передаче массива функции. И подскажите, правильно ли использую комбинированный тип.

  1. Дан целочисленный вектор А(n). Отсортировать его элементы методом линейного выбора с подсчётом

  1. Дан произвольный одномерный массив (элементы вводятся с клавиатуры). Формирование элементов массива, обработку и если нужно вывод массива оформить отдельными подпрограммами. Вычислить сумму нечетных элементов, а все остальнве удвоить.

  1. Здравствуйте, такая задача. Есть матрица (n на 2n) . Найти номер первой строки все элементы которой кратны 5. Использовать только цикл while. Поиск решения сделать с процедурой. Входные данные и результат выписать в текстовый файл. Я написал саму программу. Однако появилась такая проблема. После считывания данных программа не закрывается (остается висеть черным окном). После пошаговой проверки оказалось, что проблема в процедуре. Наверное, нет выхода из цикла. Помогите, пожалуйста найти ошибку.