в начале все отрицательные, затем все положительные элементы в матрице

[motaro]

Нужно решить следующую задачу и составить к ней блок-схему (можно в Paint'е):

В матрице A (6,5) элементы 2-го столбца расположить следующим образом: в начале все отрицательные, затем все положительные. Матрицу заполнить целыми случайными числами из диапазона [-3,8].

кто решит, кину на мобильник 200р.

[alexBlack]

var A : array [1..6, 1..5] of integer;
    i, j, n, k:integer;
begin
   // Заполнение матрицы
   randomize;
   for i:=1 to 6 do
      for j:=1 to 5 do
          A[i, j] := random(9+3)-3;
   // Random возвращает [0..range[ поэтому добавляем 1

   n := 0; // первый положительный эелемент
   for i:=1 to 5 do begin
     k := A[i, 2];
     // про нули в задании ничего не сказано, считаем их положительными
     if k >= 0 then begin
        // Запоминаем позицию первого положительного элемента 
        if n = 0 then n := i
     end else

     if (k < 0) and (n > 0) then begin
        // меняем местами с первым положительным элементом
        A[i, 2] := A[n, 2];
        A[n, 2] := k;
        inc(n);
     end;
   end;

[motaro]

задача решена! тему можно закрыть