Умножить все положительные элементы массива на квадрат min, а отрицательные - на квадрат max элемента - Free Pascal

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

задано массив P (13). Умножить все положительные элементы массива на квадрат наименьшего элемента, а все отрицательные - на квадрат крупнейшего элемента. Вывести исходный и сформированый массивы, а также найти минимум и максимум

Решение задачи: «Умножить все положительные элементы массива на квадрат min, а отрицательные - на квадрат max элемента»

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

uses math;
const
  N = 13;
type
  Range = 0 .. Pred(N);
var
  ar: Array[Range] Of Double;
  i: Range;
  min, max: Double;
begin
  Randomize;
  Write('A =');
  for i in Range do begin
    ar[i] := Random * 10 - 5;
    Write(' ', ar[i]:0:2);
  end;
  min := MinValue(ar); max := MaxValue(ar);
  Write(sLineBreak, 'max=', max:0:2, #9, 'min=', min:0:2, sLineBreak, 'A''=');
  min := sqr(min); max := sqr(max);
  for i in Range do begin
    ar[i] := ar[i] * IfThen(ar[i] > 0, min, max);
    Write(' ', ar[i]:0:2);
  end;
  Writeln(sLineBreak, 'new max=', MaxValue(ar):0:2, #9'new min=', MinValue(ar):0:2);
end.

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

Объявлены переменные: — ar: массив типа Double, размерность — N (13), инициализируется случайными числами с плавающей точкой в диапазоне от -5 до 45 с шагом 10. — i: целочисленная переменная для цикла. — min, max: для хранения минимального и максимального значений массива ar соответственно.
Выполняется инициализация генератора случайных чисел.
Выводится строка приглашения для ввода массива.
Запускается цикл по всем элементам массива ar.
Каждый элемент выводится на экран с пробелом после него.
После завершения цикла вычисляются минимальное и максимальное значения массива ar и сохраняются в переменных min и max соответственно.
Выводится строка с значениями min и max.
Минимальное и максимальное значения заменяются на квадраты этих значений.
Запускается цикл по всем элементам массива ar.
Каждый элемент умножается на значение из таблицы (см. п. 4) и выводится на экран с пробелом после него.
После завершения цикла вычисляются новое максимальное и минимальное значения массива ar и сохраняются в переменных min и max соответственно.
Выводится строка с новыми значениями max и min.