формирование вектора чередованием элементов Опции

[18192123]

Дана квадратная матрица порядка n. Сформировать вектор х, где чередуются положительные и отрицательные элементы из матрицы (вектор х начинается с отрицательного элемента)

(задача решается только с использованием массивов, процедур)

Я думаю вначале нужно найти первый отрицательный элемент, тогда в векторе х положительные элементы будут занимать чётные позиции ( а как реализовать насчёт позициий - не знаю)

И ещё: число положительных и отрицательных не во всех случаях равно, эти варианты то же нужно учесть или этого можно избежать?

Подскажите пожалуйста!!!

[volvo]

(Я так рассуждала - если, например количество положительных больше ,то оставшиеся из них просто будут приписывать в конец вектора....)

Именно это и будет происходить в случае, который я тебе описывал... Смотри, вот основной цикл:

  i_neg := 1; { <--- Начальная позиция, с которой пишем отриц. элементы }
  i_pos := 2; { <--- Начальная позиция, с которой пишем положит. элементы }
  for i := 1 to n do
    for j := 1 to n do
      if mx[i, j] > 0 then begin
        vec[i_pos] := mx[i, j];
        {
          Если i_pos < 2*neg, то i_pos увеличить на 2, иначе на 1,
          ибо больше отриц. эл-тов уже нет
        }
        inc(i_pos, 1 + byte(i_pos < 2 * neg)); 
      end
      { То же самое, только для отрицательных эл-тов }
      else begin
        vec[i_neg] := mx[i, j];
        inc(i_neg, 1 + byte(i_neg < 2 * pos));
      end;

У меня
neg - число отриц. эл-тов в матрице
pos - число положит. эл-тов (pos := N*N - neg)

[18192123]

+ byte(i_pos < 2 * neg); 

именно эта конструкция позволяет увеличивать i_pos на два если i_pos < 2 * neg? Я правильно поняла?