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

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

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

program lesson15_18;
type
    myArr = array[1..10] of integer;

procedure search (a, b: myArr);
var
    r: boolean;
    i, j: integer;
begin
    for i := low(a) to high(a) do
    begin
        r := false;
        for j := low(b) to high(b) do
            if a[i] = b[j] then
            begin
                r := true;
                break;
            end;

        if not r then
            write(a[i], '|');
    end;
end;

procedure print (a: myArr; c: char);
var
    i: integer;
begin
    for i := low(a) to high(a) do
    begin
        write(a[i], c);
    end;
end;

var
    arr1: myArr;
    arr2: myArr;
    i: integer;
begin
    randomize();
    for i := low(arr1) to high(arr1) do
    begin
        arr1[i] := 1 + random(10);
        arr2[i] := 1 + random(10);
    end;

    print(arr1, '|');

    writeln();

    print(arr2, '|');

    writeln();

    search(arr1, arr2);

    readln();
end.