Сам решил, но не уверен в правильности

// pascalabc.net 3.2, сборка 1427 от 24.04.2017 // внимание! если программа не работает, обновите версию! begin   var a: =seqrandom(readinteger('n=',50).select(x-> x/10).toarray;   a.println;   var b: =a.where(x-> x< 0).orderbydescending(x-> x).toarray;   var j: =0;   for var i: =0 to a.length-1 do       if a[i]< 0 then (a[i],j): =(b[j],j+1);   a.println; end. пример n= 15 -3.6 -4.9 -4.2 1.8 -0.8 3.1 -3.3 -4.7 -2 4.1 3.1 2.3 4 -3.3 -1.6 -0.8 -1.6 -2 1.8 -3.3 3.1 -3.3 -3.6 -4.2 4.1 3.1 2.3 4 -4.7 -4.9

Function f(x,eps: double): double; var   s0,s1,sgn,d: real; begin   s1: =x; d: =1; sgn: =1;   repeat       s0: =s1; d: =d+1; sgn: =-sgn;       s1: =s0+sgn*x/d   until abs(s1-s0)< =eps;   f: =s1 end; var   x: double; begin   x: =-0.5;   while x< =0.5 do begin       writeln(x: 4: 1,f(x,1e-7): 14: 7);       x: =x+0.1       end end. результат -0.5      -0.3465736 -0.4      -0.2772589 -0.3      -0.2079442 -0.2      -0.1386295 -0.1      -0.0693148   0.0        0.0000000   0.1        0.0693148   0.2        0.1386295   0.3        0.2079442   0.4        0.2772589   0.5        0.3465736