Пример кода на Pascal:

program ReverseArray;
var
arr: array[1..20] of Integer;
i, temp: Integer;
begin
Randomize;
// заполнение массива случайными значениями
for i := 1 to 20 do
begin
arr[i] := Random(100); // случайное число от 0 до 99
end;
// вывод массива на экран
writeln('Исходный массив:');
for i := 1 to 20 do
begin
write(arr[i], ' ');
end;
writeln;
// обмен значений первого и последнего элементов
temp := arr[1];
arr[1] := arr[20];
arr[20] := temp;
// вывод измененного массива на экран
writeln('Массив после изменения:');
for i := 1 to 20 do
begin
write(arr[i], ' ');
end;
writeln;
end.

Этот код создает массив из 20 случайных чисел, выводит его на экран, затем меняет местами первый и последний элемент массива и выводит измененный массив на экран.