(Pascal ABC Net)Найти сумму максимального и минимального из 12 введенных чисел. Вывести сами значения и их индексы.

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

program SumMinMax;

var
arr: array[1..12] of Integer;
i, minIndex, maxIndex, min, max, sum: Integer;

begin
// Ввод чисел
for i := 1 to 12 do
begin
Write('Введите число ', i, ': ');
Readln(arr[i]);
end;

// Находим минимальное и максимальное значение и их индексы
min := arr[1];
max := arr[1];
minIndex := 1;
maxIndex := 1;

for i := 2 to 12 do
begin
if arr[i] < min then
begin
min := arr[i];
minIndex := i;
end
else if arr[i] > max then
begin
max := arr[i];
maxIndex := i;
end;
end;

// Вычисляем сумму минимального и максимального значения
sum := min + max;

// Вывод результатов
Writeln('Минимальное значение: ', min, ', Индекс: ', minIndex);
Writeln('Максимальное значение: ', max, ', Индекс: ', maxIndex);
Writeln('Сумма минимального и максимального значений: ', sum);

end.