В однородном массиве , состоящем из n вещественных частей вычислить :

var  

 arr: array [0..9] of real;

 newArr: array [0..9] of real;

 n : integer;

 i: integer;

 j: integer;

 k: integer;

 minAbs: real;

 sumAbs: real;

begin

 n := 10;

 for i:=0 to n-1 do

     arr[i] := i+1;

 writeln('Начальный массив: ');

 for i:=0 to n-1 do

     write(arr[i], ' ');

 minAbs := arr[0];

 j := 0;

 k := n div 2;

 for i:=0 to n-1 do

   begin

     if (i gt; 0) and (Абс(arr[i]) lt; minAbs) then

       minAbs := arr[i];

     sumAbs := sumAbs + Абс(arr[i]);

     if i mod 2 = 0 then

       begin

         newArr[j] := arr[i];

         j := j + 1;

       end

     else

       begin

         newArr[k] := arr[i];

         k := k + 1;

       end;

   end;

 writeln();

 writeln();

 writeln('Малый по модулю: ', minAbs);

 writeln('Сумма модулей: ', sumAbs);

 writeln('Перевоплощенный массив: ');

 for i:=0 to n-1 do

     write(newArr[i], ' ');

end.