Question

Составить программу, которая формирует случайным образом два одномерных массива из N элементов и выводит элементы первого массива, которые не встречаются во втором (PascalABC)

Answer 1

program raf105;

const

 N = 10;

var

 a,b: array[1..N] of integer;

 x: boolean;

begin

 for var i:=1 to N do

   begin

     a[i]:= random(15);

     b[i]:= random(15);

   end;

   

 writeln('A: ',a);

 writeln('B: ',b);

 write('Вывод: ');

 

 for var i:=1 to N do

   begin

     x:= False;

     for var j:=1 to N do

       if a[i] = b[j] then x:= True;

     if not(x) then write(a[i],', ');

   end;

   

end.

PascalABC