Помогите решить задачу. Мова Паскаль.

[Vova_1]

Перетворити масив х за таким правилом (використати масив у як
допоміжний): усі від’ємні елементи масиву перенести в його початок, а ті,
що залишились – у кінець, зберігаючи початкове положення як серед
від’ємних, так і серед інших елементів.

[p51x]

Языки форума русский и английский. В гугло транслейте забанили?

[ura_111]

Что сделал к этому моменту? Покажи.

Если ничего, тогда рисуй (по-вашему "малюй") условие и решение задачи. Что-то типа этого:

1.jpg

Продолжи или нарисуй заново... Продолжай то тех пор, пока твоя задача не будет решена (пока что только на картинке).

А потом посмотрим чем тебе помочь.

[type_Oleg]

Vova_1, используй динамический массив в качестве допоможнего.
Сначала напихай в него все отрицательные, что найдешь. Затем - все положительные.

PS Хотя, можно и не динамический.

[Aleksandr H.]

uses crt;
const n = 10;
var x,y:array[1..n] of integer;
    i,j:integer;
begin
clrscr;
randomize;
for i:=1 to n do
 begin
    x[i]:=10-random(20);
    write(x[i]:5);
 end;
j:=0;
for i:=1 to n do
 if x[i]<0 then
  begin
   inc(j);
   y[j]:=x[i]
  end;
for i:=1 to n do
 if x[i]>0 then
  begin
   inc(j);
   y[j]:=x[i]
  end;
writeln;
writeln('Masyv pisla peretvorennia');
for i:=1 to n do
 write(y[i]:5);
readln;
end.