Множества(Паскаль)

[Lord123]

Множества
1. Даны две последовательности xf 1 ..n],y[l ..т] чисел из интервала 1 ..60. Найти все
общие элементы этих последовательностей.
2. Даны две последовательности х[1..п]. у[1..т] чисел из интервала 100..150. Найти
все элементы, которые входят в X. но не входят в Y.


Подскажите как зделать?

[baster128]

Сравнить поэлементно оба множества в цикле. Находим равные фиксируем и удаляем из множества, останутся те которым равных не нашлось.

[Rusat]

Сделаю недорого

[ROMA2PVT]

program mnoch;
uses
   crt;
  type mn = set of 0..60;
  mas = array[1..60] of byte;
var
   a,b,c,d:mn;
   x,k,w,o,i,t,n:byte;
   l:integer;

procedure viv(y:mn);
begin
     for k := 0 to 50 do
     if k in y then write(k:3);
end;

begin
     randomize;
     clrscr;
     writeln('введите колличество элементов в множестве a');
     readln(n);
     Writeln('элементы множества a=->');
     a:=[];
      for i:=1 to n do
       begin
         x:= random(50);
         a:= a+[x];
       end;
     viv(a);
     writeln;
     writeln('введите колличество элементов в множестве b');
     readln(t);
     Writeln('элементы множества b=->');
     b:=[];
      for i:= 1 to t do
       begin
        x:=random(50);
        b:= b+[x];
       end;
       viv(b);
       writeln;
writeln('элементы множества а не пренадлежащие множеству b');
C:= a-b;
viv(c);
writeln;
end.

Вот так второе.

[ROMA2PVT]

program mnoch;
uses crt;
type mn = set of 0..50;
mas=array[1..50] of byte;
var
a,b,c,d: mn;
x, k,w,o,i,t,n: byte;
l:integer;

procedure viv(y:mn);
begin
for k:=0 to 50 do
if k in y then write(k:3);
end;

begin
randomize;
clrscr;
write('введите колличество элементов в множестве a: ');
readln(n);
Writeln('элементы множества a=->');
a:=[];
for i:=1 to n do
begin
x:= random(10);
a:= a+[x];
end;
viv(a);
writeln;
write('введите колличество элементов в множестве b: ');
readln(t);
Writeln('элементы множества b=->');
b:=[];
for i:=1 to t do
begin
x:= random(10);
b:= b+[x];
end;
viv(b);
writeln;
d:=[];
for i:=0 to 50 do if ((i in A) and (i in B)) then
d:=d+[i];
writeln;
writeln('элементы принадлежащие множ. a и b=->');
viv(d);
writeln;
readln;
end.

А вот первая.

[Lord123]

Спасибо большое!

[ROMA2PVT]

Не за что.Внизу висы.