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

program SwapMinAndFirstElement;
const
n = 5;
var
arr: array[1..n] of Integer;
minValue, minIndex, temp: Integer;
i: Integer;
begin
// Заполняем массив случайными числами
Randomize;
for i := 1 to n do
arr[i] := Random(100);
// Выводим исходный массив на экран
writeln('Исходный массив:');
for i := 1 to n do
write(arr[i], ' ');
writeln;
// Находим минимальный элемент и его индекс
minValue := arr[1];
minIndex := 1;
for i := 2 to n do
if arr[i] < minValue then
begin
minValue := arr[i];
minIndex := i;
end;
// Меняем местами минимальный элемент и первый элемент
temp := arr[1];
arr[1] := minValue;
arr[minIndex] := temp;
// Выводим измененный массив на экран
writeln('Массив после замены минимального и первого элементов:');
for i := 1 to n do
write(arr[i], ' ');
writeln;
end.

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