Задача 22 Урок 15

Задача 22 Урок 15

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

type
  arr1 = array [1..20] of integer;
  arr2 = array [1..20] of integer;
var
  min, max, i, j : integer;
  flag : boolean;
  a : arr1;
  b : arr2;

begin
  randomize();
  min := -10;
  max :=  20;
  for i := low(a) to high(a) do
    a[i] := min + random(max - min + 1);
  for i := low(b) to high(b) do
    b[i] := min + random(max - min + 1);

  i := 1;
  writeln('Во втором массиве отсутствуют числа: ');
  while i <= high(a) do
  begin
    for j := low(b) to high(b) do
      if a[i] <> b[j] then
        flag := true
      else
      begin
        flag := false;
        break
      end;
    if flag then
      write(a[i], ' ');
    i += 1;
  end;
  writeln;

  for i := low(a) to high(a) do
    write(a[i], ' ');
  writeln;
  for i := low(b) to high(b) do
    write(b[i], ' ');
  writeln;

  write('Программа завершила свою работу');
  readln();
end.