Question

Даны две последовательности а1, а2,...аn  и b1, b2..bm. (m<n). В каждой из них числа различны. Верно ли, что все числа второй последовательности входят в первую.
Решить в Паскале, с помощью одномерных массивов

Answer 1

const n = 100;
const m = 50;
var a:array[1..n] of integer;
     b:array[1..n] of integer;
     i,it,bo:integer;
begin
   for i:= 1 to n do
       a[i] := trunc(Random(100));
   for i:= 1 to m do
       b[i] := trunc(Random(100));
   bo:=1;
      for i:=1 to m do
       if bo = 1 then
         for it:=1 to n do
           if b[i] <> a[it] then begin bo:= 0; break; end;
   if bo = 1 then write('Входят') else write('Не входят');
end.

если я правильно понял задание то так