Из Паскаля в С (В одномерном массиве все отрицательные элементы переместить в начало массива, остальные в конец, сохраняя порядок)

[mail@gmai]

Помогите перевести из паскаля в с

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.

[Stilet]

А можно услышать текст задания?

[BERTY123]

В одномерном массиве все отрицательные элементы перемещаются в начало массива а остальные в конец ,с сохранить порядок следования . Доп. массив заводить нельзя

[p51x]

Клоны? Уже ж была тема с подобным заданием.

[Serge_Bliznykov]

а C какой?
Вы напишите хотя бы код на С для ввода размерности массива (ввод значения n)

p.s. переименовал тему


˜˜

[Stilet]

А я дам ответ. На всякий случай.

{
	int a[10]={1,2,3,-4,5,6,-7,8,9,0};
	int i,k,j=0;
	for(i=0;i<10;i++) if(a[i]<0) {
		k=a[i]; 
		memcpy(&a[j+1],&a[j],sizeof(int)*(i-j));
		a[j++]=k;
	}
	for(i=0;i<10;i++) printf("%d ",a[i]); getchar();
	return 0;
}