Массив в Pascal

[Anytka99]

Превратить массив X по следующему правилу: все отрицательные элементы массива перенести в начало, а все остальные - в конец, сохраняя исходное взаимное расположение, как среди отрицательных, так и среди других элементов.

[GreenWizard]

тоже есть работающая программа на с++, но ты её показать не можешь, хотя она честно-честно работает?))

[Serge_Bliznykov]

если не стоит задача оптимального решения, то я бы банально воспользовался дополнительным массивом (см. готовое решение - в теме Сформировать одномерный массив, элементами которого являются все положительные элементы исходного массива...:

Если это решение не устраивает, пишите, придумаем другое решение.

[Anytka99]

Сообщение от GreenWizard

тоже есть работающая программа на с++, но ты её показать не можешь, хотя она честно-честно работает?))

Зачем в тему зашли?

[Serge_Bliznykov]

Anytka99, прошу Вас, не надо разводить флейм.

[min@y™]

{$TELEPATOR_MODE ON}
{$MESSAGE 'do not copy this code! bugs inside!'}

function FuckTheArray(var x: array of int32): int32;
var
  idx: int32;
begin
  Result:= 0;
  for idx:= 0 to Length(x) - 1 do
    if x[idx] < 0
      then begin
             x[idx]:= x[idx] xor x[Result];
             x[Result]:= x[Result] xor x[idx];
             x[idx]:= x[idx] xor x[Result];
             inc(Result);
           end;
end;

{$TELEPATOR_MODE OFF}

Бугага!!! (зловеще)

[GreenWizard]

Сообщение от min@y™

......

Бугага!!! (зловеще)

не-не-не, уныло! предлагаю так:

function SuperCool(const source: TDataSource): TDataSource;
begin
  result := source.where(x => x < 0).append(source.where(x => x >= 0));
end;

От ТС нужна только поддержка лямбд Паскалем и реализация TDataSource с остальными наворотами

P. s. кстати, вполне себе решение: заводим новый массив, копируем в него все отрицательные элементы, а потом положительные.... в новом массиве будет таки требуемый порядок элементов