const n=10;
var i,j,v:integer;
a:array [1..n]of integer;
begin
write (' Исходный массив: ');
for i:=1 to n do begin
a[i]:=random(21)-10;
write(a[i]:4);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if (a[i]<0) and (a[j]<0) then
if a[i] < a[j] then
begin
v:=a[i];
a[i]:=a[j];
a[j]:=v;
end;
writeln;
write ('Преобразованный массив: ');
for i:=1 to n do
write(a[i]:4);
end.
