Поменять местами минимальный и максимальный элементы массива.pascal abc.

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

Вот пример реализации данной задачи на языке Pascal:

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

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