Дан массив, состоящий из 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.