Для решения данной задачи на языке Паскаль, нам нужно выполнить несколько шагов. Давайте разберем их по порядку.

1. Создать два массива: Мы создадим два массива A и B, каждый из которых будет содержать 20 элементов.
2. Заполнить массивы случайными числами: Мы будем заполнять оба массива случайными числами в диапазоне от 1 до 5. Для этого используем встроенную функцию Random.
3. Сравнить элементы массивов: После заполнения массивов, мы будем сравнивать элементы по индексам и выводить только те, которые совпадают.

Теперь давайте напишем код, который реализует все эти шаги:

program CompareArrays;
uses crt;

var
    A, B: array[1..20] of integer;
    i: integer;

begin
    randomize; // Инициализация генератора случайных чисел

    // Заполнение массива A случайными числами от 1 до 5
    for i := 1 to 20 do
    begin
        A[i] := random(5) + 1; // random(5) дает числа от 0 до 4, добавляем 1
    end;

    // Заполнение массива B случайными числами от 1 до 5
    for i := 1 to 20 do
    begin
        B[i] := random(5) + 1; // random(5) также дает числа от 0 до 4
    end;

    // Сравнение элементов массивов и вывод совпадающих
    for i := 1 to 20 do
    begin
        if A[i] = B[i] then
        begin
            writeln('Номер: ', i, ' значение: ', A[i]);
        end;
    end;

    readln; // Ожидание нажатия клавиши для завершения программы
end.

Объяснение кода:

• randomize: Эта команда инициализирует генератор случайных чисел, чтобы каждый раз при запуске программы числа были разные.
• random(5) + 1: Функция random(5) генерирует случайное число от 0 до 4. Мы добавляем 1, чтобы получить числа от 1 до 5.
• Сравнение массивов: В цикле мы проходим по всем элементам массивов и сравниваем их. Если они равны, выводим номер элемента и его значение.

Таким образом, вы сможете заполнить два массива случайными числами и найти совпадающие элементы.