В массиве необходимо найти номер строки с минимальным элементом. Поменять местами строку с минимальным элементом и пе - PascalABC.NET

Формулировка задачи:

2. В массиве необходимо найти номер строки с минимальным элементом. Поменять местами строку с минимальным элементом и первую строку массива. Найти диапазон значений. Организовать удобный вывод на экран. (-25, 25, 8)

Решение задачи: «В массиве необходимо найти номер строки с минимальным элементом. Поменять местами строку с минимальным элементом и пе»

Листинг программы

begin
  var a:=ReadArrReal(ReadlnInteger('n='));
  WritelnFormat('Диапазон значений от {0} до {1}',a.Min,a.Max);
  Swap(a[0],a[a.IndexMin]);
  Writeln('Полученный массив:',a);
end.

Объяснение кода листинга программы

Вводится размер массива в виде целого числа с помощью функции ReadlnInteger, имя которой указывается в кавычках.
Вычисляются минимальное и максимальное значение массива с помощью свойств Min и Max.
С помощью функции Swap меняются местами первый и последний элементы массива.
Выводится полученный массив с помощью функции Writeln.