Дан
массив х (n) . Переписать в массив y(n) 
отрицательные элементы массива х умноженные на 2. (со сжатием., без пустых элементов внутри)  Затем упорядочить методом «выбора и
перестановки»по возрастанию  новый
массив. 

program gt;var x,y:array[1..1000]of integer;k,n,i,j,r:integer;beginread(n);k:=0;for i:=1 to n dobeginread(x[i]);if(x[i]<0)then begink:=k+1;y[k]:=x[i]*2;end;end;for i:=1 to k dobeginfor j:=1 to k-i dobeginr:=y[j];if(y[j]>y[j+1])then beginy[j]:=y[j+1];y[j+1]:=r;end;end;end;for i:=1 to k dobeginwrite(y[i],' ');end;end.это метод пузырка