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

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

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

program U15Z18;
type mas = array [1..10] of integer;
var a,b: mas;
    i,j: integer;
    f: boolean;
procedure zap(var m: mas);
var g:integer;
begin
  for g:=1 to 20 do
  begin
    m[g]:=random(20)-10;
    write(m[g],' ');
  end;
  writeln();
end;
begin
  randomize();
  zap(a);
  zap(b);
  f:=true;
  write('chisla: ');
  for i:=1 to 10 do
  begin
    for j:=1 to 10 do
    begin
      if (a[i]=b[j]) then
      begin
        f:=false;
        break;
      end;
    end;
    for j:=i-1 downto 1 do
      if (a[i]=a[j]) then
        f:=false;
    if (f) then
      write(a[i],' ')
    else
      f:=true;
  end;
  readln();
end.