Поменять местами элементы одномерного массива

[McFrey]

Дан одномерный массив, элементы которые меньше 0 переместить в левую часть массива (без их сортировки!) а элементы которые больше 0 в правую часть массива( также без сортировки), с помощью двух циклов "while".
Заранее спасибо!
P.S. язык Pascal

[ByAlex]

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

Дан одномерный массив, элементы которые меньше 0 переместить в левую часть массива (без их сортировки!) а элементы которые больше 0 в правую часть массива( также без сортировки), с помощью двух циклов "while".
Заранее спасибо!
P.S. язык Pascal

Наработки то есть у вас?

[McFrey]

у меня есть наработки но только с помощью цикла for...а как осуществить это в while я к сожалению не знаю.

[McFrey]

var
a:array[1..100]of integer;
i,j,t,n:integer;
begin
randomize;
writeln('vvedite kol-vo elementov');
readln(n);
writeln('ishodnyj massiv');
for i:=1 to n do
begin
a[i]:=random(20)-10;
write(a[i],' ');
end;
writeln;
while i<=n do
begin
i:=j;
while (j<=n-1) and (a[j]>=0) and (a[j+1]<0)do 
begin
t:=a[j];
a[j]:=a[j+1];
a[j+1]:=t;
end;
end;
writeln('novyj massiv');
for i:=1 to n do
write(a[i],' ');
readln;
end.

[ByAlex]

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

while i<=n do
begin
   i:=j;
   while (j<=n-1) and (a[j]>=0) and (a[j+1]<0)do 
   begin
      t:=a[j]; 
      a[j]:=a[j+1]; 
      a[j+1]:=t;
   end;

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

[McFrey]

var
a:array[1..100]of integer;
i,j,t,n:integer;
begin
randomize;
writeln('vvedite kol-vo elementov');
readln(n);
writeln('ishodnyj massiv');
for i:=1 to n do
begin
a[i]:=random(20)-10;
write(a[i],' ');
end;
writeln;
for i:=1 to n do
for j:=1 to n-1 do
if (a[j]>=0)and(a[j+1]<0)then 
begin
t:=a[j];
a[j]:=a[j+1];
a[j+1]:=t;
end;
writeln('novyj massiv');
for i:=1 to n do
write(a[i],' ');
readln;
end.

я пытался модифицировать вот эту программу....в общем она правильная, работает, но мне нужно сделать тоже самое с помощью While

[ByAlex]

var
a:array[1..100]of integer;
i,j,t,n:integer;
begin
  randomize;
  writeln('vvedite kol-vo elementov');
  readln(n);
  writeln('ishodnyj massiv');
  for i:=1 to n do
  begin
    a[i]:=random(20)-10;
    write(a[i],' ');
  end;
  writeln;
  i:=1;
  while i<=n do
  begin
    j:=1;
    while j<=n-1 do
    begin
      if (a[j]>=0)and(a[j+1]<0)then
      begin
        t:=a[j];
        a[j]:=a[j+1];
        a[j+1]:=t;
      end;
      inc(j);
    end;
    inc(i);
  end;
  writeln('novyj massiv');
  for i:=1 to n do
    write(a[i],' ');
  readln;
end.

Пробуй.

[McFrey]

Огромное спасибо! А ведь я был близок...чуть-чуть фантазии не хватило)

[ByAlex]

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

Огромное спасибо! А ведь я был близок...чуть-чуть фантазии не хватило)

Бывает!