Question

В однородном массиве , состоящем из n вещественных элементов вычислить : 1. минимальный по модулю элемент массива; 2. сумму модулей элементов массива , расположенных после первого элемента , равного нулю . Преобразовать массив таким образом , чтобы в первой его половине распологались элементы , стоящие в чётных позициях , а во второй половине - элементы , стоящие в нечётных позициях . Нужно сделать на языке Паскаль , срочно !!!

Answer 1

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 > 0) and (Abs(arr[i]) < minAbs) then

       minAbs := arr[i];

     

     sumAbs := sumAbs + Abs(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.