Turbo pascal или Pascal abc. Сортировать отрицательные элементы массива с помощью прямого выбора.

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.