Из вещественного массива А(N) получить массив С

[leshiy_777]

Из вещественного массива А(N) получить массив С, котором через один записать отрицательные элементы массива А.
Выручайте пожалуйста, очень благодарен буду.

[Stilet]

А покажешь код ввода массива А?

[Poma][a]

А покажешь код ввода массива А?

А как бы ты стал решать? Мне лишь идею.. (я думаю есть 3 красивых варианта)..

[Stilet]

А как бы ты стал решать?

Да попросту. Сначала бы раскидал отрицательные на четные места, потом остальные забил бы положительными. Два цикла.

[Poma][a]

Вариант от меня..
Основная идея взята из quick_sort'a.. (сильно не проверял)..

var
	a : array [0..100] of LongInt;

procedure QSort (l, r : LongInt);
var
	m, t, i, j : LongInt;

begin
    i := l; j := r-r mod 2;

	while (i <= r) and (j >= 2) do begin
        	while (i <= r) and (a[i] > 0) do
                	Inc (i, 2);

                while (j >= 2) and (a[j] < 0)  do
                	Dec (j, 2);

                if (i <= r) and (j >= 2) then begin
                		WriteLn('swap');
						t := a[i];
                        a[i] := a[j];
                        a[j] := t;
                        Inc (i, 2);
                        Dec (j, 2)
                end;
        end;

end;

var
	n, k, i, j : Integer;
 

begin
	ReadLn (n); 

    for i := 1 to n do
      	Read  (a[i]);

    QSort (1, n);

	for i := 1 to n do
		Write(a[i], ' ')

end.