Задание 22 урок 15

Задание 22 урок 15

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

program lesson_15;

var
  arr1, arr2: array [1..10] of integer;
  i, j, min, max: integer;

begin
  randomize();
  min := 0;
  max := 20;
  for i:=low(arr1) to high(arr1) do
    arr1[i] := min + random(max - min + 1);
  writeln('Array 1 is:');
  for i:= low(arr1) to high(arr1) do
    write(arr1[i], ' ');
  writeln();
  for j:=low(arr2) to high(arr2) do
    arr2[j] := min + random(max - min + 1);
  writeln('Array 2 is:');
  for j:= low(arr2) to high(arr2) do
    write(arr2[j], ' ');
  writeln();

  j := 1;
  i := 1;
  while i <= 10 do
  begin
    while (arr1[i] <> arr2[j]) and (j <= 10) do
    begin
      j += 1;
      if j = 10 then
        begin
          write(arr1[i], ' ');
          break;
        end;
    end;
    i += 1;
    j := 1;
  end;
  writeln();
  writeln('End!');
  readln();
end.