На паскале. задан массив из n действительных чисел(n может быть задано не более 25). отрицательные числа в заданном массиве упорядочить по убыванию их значений. взаимное расположение отрицательных и положительных чисел сохранить. вывести на экран исходный и новый массивы.

Const n=20; var  a,b: array[1..n] of integer; i,j,k,m,c: integer;   begin randomize; writeln('исходный массив: '); for i: =1 to n do   begin   a[i]: =random(51)-25;   write(a[i]: 5);   end; writeln; j: =0; for i: =1 to n do   if a[i]< 0 then begin j: =j+1; b[j]: =a[i]; end; m: =j; for k : = 1 to m-1 do   for i : = 1 to m-k do       if (b[i]< b[i+1]) then          begin         c: =b[i]; b[i]: =b[i+1]; b[i+1]: =c;         end; writeln(' массив: '); for i: =1 to m do write(b[i]: 5); writeln; j: =0; for i: =1 to n do   if a[i]< 0 then begin j: =j+1; a[i]: =b[j]; end; writeln('полученный массив: '); for i: =1 to n do write(a[i]: 5); writeln; end. пример: исходный массив:   -15   -8   -6   -13   15   24     5   -2   14   -1   19   -2   -7   -8   -23   20   -2     7   -2   -10 массив:     -1   -2   -2   -2   -2   -6   -7   -8   -8   -10   -13   -15   -23 полученный массив:     -1   -2   -2   -2   15   24     5   -2   14   -6   19   -7   -8   -8   -10   20   -13     7   -15   -23

Расстояние от точки до начала координат находится как длина гипотенузы прямоугольного треугольника, катетами которого являются координаты точки. поскольку нам нужны не сами расстояния, а лишь сравнить их, то можно сравнивать квадраты, чтобы не извлекать корня. // pascalabc.net 3.0, сборка 1088 var   x1,x2,y1,y2,r1,r2: real; begin   write('введите координаты первой точки: '); read(x1,y1);   write('введите координаты второй точки: '); read(x2,y2);   r1: =sqr(x1)+sqr(y1); r2: =sqr(x2)+sqr(y2);   if r1> r2 then writeln('ближе вторая точка')   else       if r1< r2 then writeln('ближе первая точка')       else writeln('точки равноудалены') end. тестовое решение: введите координаты первой точки: 16.3 -11.7 введите координаты второй точки: 15.8 12 ближе вторая точка