Pascal. Работа с массивом.

[Dante48]

Взять из Х и расположить в массиве Y сначала все положительные, а затем отрицательные элементы.
Массив Х:
-3;2;8;-4;5;-1
Что должно получиться. Массив Y:
2;8;5;-3;-4;-1

[Аватар]

покажите свои наработки, конкретные вопросы и т.п.

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.

[Dante48]

uses crt;
var y,x:array[1..6] of integer;
i,k:byte;
begin
clrscr; randomize;
writeln('Mассив X(6):');
for i:=1 to 6 do
begin
     x[i]:=random(199)-99;
     write(x[i]:4);
  end;
k:=1;
for i:=1 to 6 do
  if x[i]>=0 then
     begin
        y[k]:=x[i];
        inc(k);
     end;
writeln(#13#10,'Mассив Y(6):');
for i:=1 to 6 do
  begin
     if x[i]<0 then
        begin
           y[k]:=x[i];
           inc(k);
        end;
     write(y[i]:4);
  end;
readkey;
end.

Такие наработки сейчас есть. Правда тут с учетом порядка элементов. Вопрос в том, как это будет выглядеть без учета порядка элементов. что бы было, как в шапке Y[6]

[Aleksandr H.]

Dante48 ваш код при входе -3;2;8;-4;5;-1 дает на выход 2;8;5;-3;-4;-1. В чем проблема?

[Serge_Bliznykov]

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

Правда тут с учетом порядка элементов.

тут с учётом исходного порядка (т.е. в каком порядке шли положительные в массиве Ч, в том они и будут идти в массиве Y, то же самое и насчёт отрицательных - исходный порядок сохраняется.

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

Вопрос в том, как это будет выглядеть без учета порядка элементов. что бы было, как в шапке Y[6]

а вот сейчас вообще не понятно, о чём речь.
Что Вас не устраивает в вашей программе?

[Plague]

Может быть ТС'у нужен однопроходный алгоритм? Сейчас у него считает за два прохода по массиву.