Нужно написать программу на Paskal ABC одномерного массива данных на 100 единиц, и Создать алгоритм поиска максимального и минимального значения и поменять их местами.

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

program SearchMinMax;
var
arr: array[1..100] of Integer;
i, minIndex, maxIndex, temp: Integer;
begin
// заполняем массив случайными числами
Randomize;
for i := 1 to 100 do
arr[i] := Random(1000); // случайное число от 0 до 999

// выводим исходный массив на экран
writeln('Исходный массив:');
for i := 1 to 100 do
write(arr[i], ' ');

// ищем индексы минимального и максимального элементов
minIndex := 1;
maxIndex := 1;
for i := 2 to 100 do
begin
if arr[i] < arr[minIndex] then
minIndex := i;
if arr[i] > arr[maxIndex] then
maxIndex := i;
end;

// меняем местами минимальный и максимальный элементы
temp := arr[minIndex];
arr[minIndex] := arr[maxIndex];
arr[maxIndex] := temp;

// выводим измененный массив на экран
writeln;
writeln('Массив после замены местами минимального и максимального элементов:');
for i := 1 to 100 do
write(arr[i], ' ');
end.