Дан целый массив, заполненный случайными числами. Заменить максимальным элементом все элементы, расположенные между первым и минимальным элементом. На Паскале.

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

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

program ReplaceElements;
const
n = 10; // Длина массива
var
arr: array[1..n] of Integer;
i, maxIndex, minIndex, maxElem, minElem: Integer;
begin
// Заполнение массива случайными числами
Randomize;
for i := 1 to n do
begin
arr[i] := Random(100); // Случайное число от 0 до 99
Write(arr[i], ' ');
end;
// Поиск индекса минимального элемента
minIndex := 1;
minElem := arr[1];
for i := 2 to n do
begin
if arr[i] < minElem then
begin
minElem := arr[i];
minIndex := i;
end;
end;
// Поиск индекса максимального элемента
maxIndex := 1;
maxElem := arr[1];
for i := 2 to n do
begin
if arr[i] > maxElem then
begin
maxElem := arr[i];
maxIndex := i;
end;
end;
// Замена элементов между первым и минимальным элементами максимальным элементом
if maxIndex < minIndex then
for i := maxIndex + 1 to minIndex - 1 do
arr[i] := maxElem
else
for i := minIndex + 1 to maxIndex - 1 do
arr[i] := maxElem;
// Вывод измененного массива
Writeln;
for i := 1 to n do
Write(arr[i], ' ');
ReadLn;
end.

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