Дан массив х (n) . переписать в массив y(n) отрицательные элементы массива х умноженные на 2. (со сжатием., без пустых элементов внутри) затем упорядочить методом «выбора и перестановки»по возрастанию новый массив.
Program gt; var x,y:array[1..1000]of integer; k,n,i,j,r:integer; begin read(n); k:=0; for i:=1 to n do begin read(x[i]); if(x[i]<0)then begin k:=k+1; y[k]:=x[i]*2; end; end; for i:=1 to k do begin for j:=1 to k-i do begin r:=y[j]; if(y[j]>y[j+1])then begin y[j]:=y[j+1]; y[j+1]:=r; end; end; end; for i:=1 to k do begin write(y[i],' '); end; end. это метод пузырка
var x,y:array[1..1000]of integer;
k,n,i,j,r:integer;
begin
read(n);
k:=0;
for i:=1 to n do
begin
read(x[i]);
if(x[i]<0)then begin
k:=k+1;
y[k]:=x[i]*2;
end;
end;
for i:=1 to k do
begin
for j:=1 to k-i do
begin
r:=y[j];
if(y[j]>y[j+1])then begin
y[j]:=y[j+1];
y[j+1]:=r;
end;
end;
end;
for i:=1 to k do
begin
write(y[i],' ');
end;
end.
это метод пузырка