Одномерный массив. Наработак нет

[MiRa 007]

Помогите девушке Нужно до среды написать простенькую задачку:
Преобразовать одномерный массив, состоящий из n вещественных элементов, таким образом, чтобы сначала располагались все элементы,
Равные нулю, а потом- все остальные.

Всем кто помогал поставлю плюсик

[Evgeniy26]

Отсортировать по возростанию?

[__STDC__]

ну если без лишнего пафоса и сортировки остальных эл-тов и на паскале то как-то так

const 
	n = 10;
	
procedure swap(var x,y:real);
var
	tmp:real;
begin
	tmp := y;
	y   := x;
	x   := tmp;
end;
	
var
	x:array[1..n] of real;
	i,j:byte;
begin
	randomize;
	for i:=1 to n do begin
		x[i] := random(3){+random(100)/100};
		write(x[i]:5:1);
	end;
		
	for i:=1 to n do 	
		for j:=1 to n-1 do
			if (x[j+1] = 0) then
				swap(x[j],x[j+1]);
	writeln;
	for i:=1 to n do 
		write(x[i]:5:1);

	readln;
end.

***
там если раскомментировать эту штуку в генерации массива, то будут дробные числа.. но есть тонкость.. надо тогда в условном операторе писать < eps, а за eps брать что-нибудь типа 0.0001... там из-за погрешностей обработки вещественных чисел редко получается чистый 0... поэтому сортировка будет глючить

***
еще следует учитывать, что при малом кол-ве элементов и раскомментированной строке в генерации в массиве кол-во 0-х элементов будет порядка 1-3 =) Лучше там генерить как-нибудь random(5)/100 =)

P.S. Ура-ура, мне поставят плюсик