Задача 18 урок 15

Задача 18 урок 15

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

program project15_17;

var a, b: array[1..10] of integer;
    i, j, z: integer;
begin
  z:=0;
  randomize();
  for i:=low(a) to high(b) do //формируем массивы
    begin
      a[i]:=random(15);
      b[i]:=random(15);
    end;
  for i:=low(a) to high(a) do  //выводим в консоль
      write(a[i],'| ');
  writeln();
  for i:=low(b) to high(b) do  //выводим в консоль
      write(b[i],'| ');
  writeln();
  writeln('viborka:');

  for i:=low(a) to high(b) do
    begin
      for j:=low(b) to high(b) do
        if a[i]<>b[j] then
          z:=z+1;
      if z=high(b) then
        write(a[i],'|')
      else
        z:=0;
    end;
  readln();
end.