Урок 15. Задача 20.

Урок 15. Задача 20.

У вас есть два массива целых чисел по 10 элементов в каждом.
Выведите на экран все числа из первого массива, которые не содержаться во втором.

type ArrOfInt = array[1..10] of integer;
var Arr_1, Arr_2 :ArrOfInt;
    i, j :integer;
function random_array(j :integer) :ArrOfInt; // создаем массив
var i :integer;
    Arr :ArrOfInt;
begin
  randomize;
  for i := 1 to 10 do
    Arr[i] := random(j);
  random_array := Arr;
end;
 
procedure compare(Arr_1, Arr_2 :ArrOfInt);
var i, j :integer;
    fl :boolean;
begin
  fl := false;
  for i := 1 to 10 do
  begin
    fl := false;
    for j := 1 to 10 do
      if Arr_1[i] = Arr_2[j] then
      begin
        fl := true;
        break;
      end;
    if not fl then
      write(Arr_1[i], ' ');
  end;  
end;
 
begin
  Arr_1 := random_array(20);
  Arr_2 := random_array(30);
  compare(Arr_1, Arr_2);
  readln();
end.