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

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

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

type Arr=array [1..10] of integer;
var a,b:arr; i,j,min,max:integer;

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

  for i:=low(a) to high(a) do
  begin
    a[i]:= min+random(max-min+1);
    for j:=low(b) to high(b) do
      if a[i]=b[j] then
        break;
    if a[i]<>b[j] then
      write(a[i],' ');
  end;
  readln();
end.