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

Урок 15

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

type ArrOfInt = array[1..10] of integer;
var k, kz: integer;
    a, b: ArrOfInt;

procedure printArray(a1: ArrOfInt); //п-а печати массива
  var i1: integer;

  begin
    writeln('Длина массива: ', length(a1));
    for i1 := low(a1) to high(a1) do
      write(a1[i1], ' ');
      writeln();
  end;

procedure ml(a1, b1: ArrOfInt); //ф-я проверки, что есть все числа
  var i1, j1, c1: integer;
      s: boolean;

  begin
    c1 := 0;
    s := false;
    for i1 := low(a1) to high(a1) do
    begin
      s := false;
      for j1 := low(b1) to high(b1) do
      begin
        if a1[i1] = b1[j1] then
        begin
          s := true;
          break;
        end;
      end;
        if s = false then
        begin
          write(a1[i1], ' ');
          inc(c1);
        end;
    end;
    // отладочная writeln('c1 ', c1);
    if c1 = 0 then
      writeln('Все числа первого массива есть во втором');
  end;

function f1(k1: integer; a1: ArrOfInt): ArrOfInt; // ф-я создаем массив
  var i1: integer;

  begin
    randomize();
    for i1 := low(a1) to high(a1) do //создаем массив и наполняем его
      a1[i1] := random(k1) - 5;
    result := a1;
  end;

  begin
    randomize();
    k := random(5) + 10;
    kz := random(5) + 10;
    a := f1(k, a);
    b := f1(kz, b);
    printArray(a);
    printArray(b);
    writeln();
    writeln('Во втором массиве нет чисел: ');
    ml(a, b);
    readln();
  end.

КОНСОЛЬ

Длина массива: 10
-2 3 4 4 -3 1 1 -4 -1 5
Длина массива: 10
-1 4 5 5 -3 2 2 -4 0 7

Во втором массиве нет чисел:
-2 3 1 1