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

program zz1;

const n = 15; / / задаем количество чисел в массиве

var i, k, j:integer; / / задаем переменные целого типа

b:real;

m, v:array [1 ... n] of real;

begin

for i:=1 to n do / / получаем n чисел случайных и записываем их в массив

m[i]:=random (51) - 25+random;

for i:=1 to n do / / выводим исходный массив на экран

write (m[i]:8:2);

writeln; / / переходим на новую строку для вывода ответа

for i:=1 to n do

if m[i] < 0 then begin k:=k+1; v[k]:=m[i]; end;

for i : = 1 to k-1 do

for j : = 1 to k-i do

if v[j] < v[j+1] then begin

b : = v[j];

v[j] : = v[j+1];

v[j+1] : = b;

end;

k:=0;

for i:=1 to n do

if m[i] < 0 then begin k:=k+1; m[i]:=v[k]; end;

for i:=1 to n do / / выводим полученный массив на экран

write (m[i]:8:2);

end.