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

Формулировка задачи:

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

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

textual
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


СОХРАНИТЬ ССЫЛКУ