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

Сначала нам нужно объявить два массива: один для хранения случайных чисел, а другой для хранения чётных отрицательных чисел.

1. Объявим массив A размером, например, 10 элементов для случайных чисел.
2. Объявим массив B, который будет хранить чётные отрицательные числа. Его размер можно заранее не определять, так как мы будем использовать переменную для подсчёта количества найденных элементов.

Для заполнения массива A случайными числами в диапазоне от -10 до 10, мы можем использовать встроенную функцию случайных чисел и преобразовать их в нужный диапазон.

1. Используем функцию Random для генерации случайных чисел.
2. Прибавляем 10 к результату, чтобы получить числа в диапазоне от 0 до 20, и затем вычитаем 10, чтобы вернуться к диапазону от -10 до 10.

Теперь, когда массив A заполнен, мы можем пройтись по его элементам и выбрать только чётные отрицательные числа.

1. Создадим переменную для подсчёта элементов в массиве B.
2. Пройдемся по каждому элементу массива A:
• Если элемент меньше 0 и чётный (проверяем с помощью операции остатка от деления на 2), то добавляем его в массив B.

После заполнения массива B, мы можем вывести его элементы на экран.

Вот пример кода на Паскале, который выполняет все описанные шаги:

program FillAndFilterArray;
uses crt;

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

begin
    randomize;  { Инициализация генератора случайных чисел }
    
    { Заполнение массива A случайными числами от -10 до 10 }
    for i := 1 to 10 do
    begin
        A[i] := random(21) - 10;  { Генерация числа от -10 до 10 }
    end;

    { Вывод массива A }
    writeln('Массив A:');
    for i := 1 to 10 do
    begin
        write(A[i], ' ');
    end;
    writeln;

    { Поиск чётных отрицательных чисел }
    j := 0;  { Счётчик для массива B }
    for i := 1 to 10 do
    begin
        if (A[i] < 0) and (A[i] mod 2 = 0) then
        begin
            j := j + 1;
            B[j] := A[i];  { Добавляем элемент в массив B }
        end;
    end;

    { Вывод массива B }
    writeln('Массив B (чётные отрицательные числа):');
    for i := 1 to j do
    begin
        write(B[i], ' ');
    end;
    writeln;
end.

Таким образом, мы создали программу, которая заполняет массив случайными числами и выделяет из него чётные отрицательные числа в отдельный массив. Надеюсь, это объяснение было полезным!