Дан массив, состоящий из 15-ти целых чисел, найти минимально из них и заменить его на сумму первого элемента и последнего.

var

 A: array [1..15] of Integer;

 i, Amin, Ai: Integer;

begin

 WriteLn ('Массив:');

 Randomize;

 for i := Low (A) to High (A) do begin

   A [i] := Random (100);          // заполнение массива случайными значениями

   Write (A [i], ' ');             // вывод для просмотра

 end;

 Amin := A [Low (A)];              // минимальное значение возьмем из первого элемента массива

 Ai := Low (A);                    // индекс минимального значения = 1

 for i := Low (A) + 1 to High (A) do begin  // цикл со второго элемента массива до последнего

   if A [i] < Amin then begin               // если найден элемент меньше минимального

     Amin := A [i];                         // изменяем его значение

     Ai := i;                               // и сохраняем номер

   end;

 end;

 Writeln;

 Writeln ('Минимальный элемент № ', Ai, ' равный ', A [Ai]);  // выводим минимальный элемент на просмотр

 A [Ai] := A [Low (A)] + A [High (A)];                        // изменяем на сумму первого и последнего

 Writeln ('Заменен на значение = ', A [Ai]);                  // и его новое значение на просмотр

end.