Массив: Умножить все члены массива на квадрат ее min члена, если ai ≥ 0, и на квадрат ее max члена, если ai < 0.

program Zadanie111;
const
  n = 25;
type
  Tarr = array[1..n] of real;
 
procedure PrintArr(arr:Tarr; narr: integer);
var // Процедура для вывода массива на экран.
  i: integer;
begin
  for i:= 1 to narr do
     write(arr[i]:0:1,'  ');
writeln;
end;
 
function MinElem (arr: Tarr; narr: integer): real;
var // Функция для нахождения элементa c минимальным значением.
  i: integer;
  minval: real;
begin
minval:= 1E308;
for i:= 1 to narr do
   if arr[i] < minval then
     minval:= arr[i];
MinElem:= minval;
end;
 
function MaxElem (arr: Tarr; narr: integer): real;
var // Функция для нахождения элементa c максимальным значением.
  i: integer;
  maxval: real;
begin
maxval:= -1E308;
for i:= 1 to narr do
   if arr[i] > maxval then
     maxval:= arr[i];
MaxElem:= maxval;
end;
 
 
procedure ArrPowElem (var arr:Tarr; narr: integer; elem:real);
var // Процедура для перемножения всех элементов массива на число.
  i: integer;
begin
  for i:= 1 to narr do
    arr[i]:= arr[i]*elem;
end;
 
var
  a: TArr;  // Переменные для хранения массивов.
  i: integer;  // Промежуточная переменная для организации цикла.
  minsqrelement: real; // Переменная для хранения значения квадрата минимального числа.
  maxsqrelement: real; // Переменная для хранения значения квадрата максимального числа.
begin
  for i:= 1 to n do
    begin
      write('Введите значение ',i,'-ого элемента: ');
      Readln(a[i]);
    end;
  Writeln('Исходный массив:');
  PrintArr(a,n);
  minsqrelement:= sqr(MinElem(a,n)); // Переменной присваевается квадрат значения минимального элемента.
  maxsqrelement:= sqr(MaxElem(a,n)); // Переменной присваевается квадрат значения максимального элемента.
 
  for i:= 1 to n do
    begin
    writeln('Измененный массив № ',i);
    if a[i] >= 0 then   // Условие выбора для перемножения элементов.
      ArrPowElem(a,n,minsqrelement)
    else
      ArrPowElem(a,n,maxsqrelement);
    end;
  PrintArr(a,n);  // Вывод результатов вычислений на экран.
  readln;
end.