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

@Катюша94 · Регистрация: 03.12.2013

Студворк — интернет-сервис помощи студентам

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

Заранее спасибо!!!

@Puporev · 03.12.2013, 13:47

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.

@Катюша94 · 03.12.2013, 13:50 **[ТС]**

спасибо огромное!!!)))

@Катюша94 0 / 0 / 0 Регистрация: 03.12.2013 Сообщений: 6
		1
	Найти элементы массива К, не имеющие себе равных в массиве L 03.12.2013, 12:27. Показов 1915. Ответов 2 Метки нет (Все метки) (Векторы) Даны два целочисленных массива K(m) и L(n). Найти элементы массива К, не имеющие себе равных в массиве L. Заранее спасибо!!! 0

@Катюша94 0 / 0 / 0 Регистрация: 03.12.2013 Сообщений: 6
	03.12.2013, 13:50 [ТС]	3
	спасибо огромное!!!))) 0

Опции темы

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

Решение