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

Вот шаги, которые необходимо выполнить:

1. Создать массив из 20 четырехзначных чисел.
2. Написать процедуру, которая будет принимать число и выполнять обмен разрядов.
3. Применить эту процедуру ко всем числам в массиве.

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

program SwapDigits;

var
    numbers: array[1..20] of Integer;
    i: Integer;

procedure Swap(var num: Integer);
var
    firstTwo, lastTwo, swappedNum: Integer;
begin
    firstTwo := num div 100; // Получаем первые два разряда
    lastTwo := num mod 100; // Получаем последние два разряда
    swappedNum := lastTwo * 100 + firstTwo; // Меняем местами
    num := swappedNum; // Записываем обратно в переменную
end;

begin
    // Генерация массива случайных четырехзначных чисел
    Randomize;
    for i := 1 to 20 do
    begin
        numbers[i] := Random(9000) + 1000; // Генерируем число от 1000 до 9999
    end;

    // Выводим исходный массив
    WriteLn('Исходный массив:');
    for i := 1 to 20 do
    begin
        Write(numbers[i], ' ');
    end;

    // Применяем процедуру ко всем числам массива
    for i := 1 to 20 do
    begin
        Swap(numbers[i]);
    end;

    // Выводим измененный массив
    WriteLn;
    WriteLn('Измененный массив:');
    for i := 1 to 20 do
    begin
        Write(numbers[i], ' ');
    end;
end.

Теперь давайте разберем код подробнее:

• Создание массива: Мы создаем массив numbers размером 20, который будет хранить наши четырехзначные числа. С помощью Randomize и Random мы заполняем массив случайными числами в диапазоне от 1000 до 9999.
• Процедура Swap: Эта процедура принимает число по ссылке (с помощью var), извлекает первые два и последние два разряда, меняет их местами и записывает обратно в переменную.
• Применение процедуры: Мы проходим по всем элементам массива в цикле и вызываем процедуру Swap для каждого числа.

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