Поменять местами минимальный и первый элементы массива.В turbo pascal

Предыдущий
вопрос Следующий
вопрос

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

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

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