Сформировать одномерный массив, элементами которого являются все положительные элементы исходного массива...

[sev48fire]

Дан массив x(n) все отрицательные элементы массива перенести в его начало, а все остальные в конец, сохраняя исходное взаимное расположение как среди отрицательных, так и среды остальных элементов. Для Pascal abc.

[sev48fire]

Если уже был такой вопрос просьба дать ссылку.

[Poma][a]

Язык какой?

[sev48fire]

Pascal abc.

[Poma][a]

Вроде была похожая задача на acmp, в своё время я её решил, писать заново влом, а acmp что-то не работает, так что ждем...

[Serge_Bliznykov]

да нечего из простейшей задачи делать олимпиадную!!
банально воспользоваться ДОПОЛНИТЕЛЬНЫМ массивом.
вот так:

const N=10;
type
   TArr = array[1..N] of Integer;
var
   X, Tmp : TArr;
   i, k : integer;
begin
  {заполним массив случайными числами}   
  Randomize;
  for i:=1 to N do X[i] := 10-Random(25);

  {выведем массив на экран}
  Write('Исходный массив: ');
  for i:=1 to N do Write(X[i]:5);
  WriteLn;

  {преобразование}
  k:=0;
  for i:=1 to N do 
    if X[i]<0 then begin
        Inc(K);
        Tmp[k] := X[i]; 
    end;
  for i:=1 to N do 
    if X[i]>=0 then begin
        Inc(K);
        Tmp[k] := X[i]; 
    end;
  X := Tmp;

  
  {выведем массив на экран}
  Write('Полученный массив: ');
  for i:=1 to N do Write(X[i]:5);
  WriteLn; 

  Readln
end.

p.s. если мне не изменяет память, на форуме были и красивые решения подобной задачи (где решение выполняется без доп.массивов и за один проход)

[sev48fire]

А как можно удалить тему?

[Serge_Bliznykov]

А как можно удалить тему?

попросить кого-нибудь из модераторов. например, меня...

только я хотел бы услышать обоснование - удалить тему, потому что " .????. "

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

[sev48fire]

Да можно и оставить конечно, просто ответ на вопрос получен.

[Stilet]

просто ответ на вопрос получен.

Порадовался сам - дай другим вкусить.
Тему оставить!!!! В аннал истории!