Преобразование прямоугольной матрицы, Помогите с решением Опции

[Серёжка]

Народ помогите с задачей:
Дана матрица B размером m*n и вектор C размером k, нужно заменить вектором С столбцы марицы B, не содержащие ни одного отрицательного элемента?
Я эту задачу начал делать, но не могу сообразить какой цикл там надо применять при замене столбца на вектор. Помогите с решением. Плиз. Заранее спасибо!
Вот начало моей программы:

program matrica;
     coust m1=15; n1=15; k1=15;
     type index_1=1..m1;
            index_2=1..n1;
            index_3=1..k1;
            matrix=array[index_1,index_2] of real;
            vector=array[index_3] of real;
     var  m,i: index_1;
            n,j: index_2;
            k,l: index_3;
            B:matrix;
            C:vector;
                begin
                write ('Число строк матрицы В m= ');
                readln(m);
                write ('Число столбцов матрицы В n= ');
                readln(n); 
                write ('Число элементов вектора C k= ');
                readln(k);
           writeln (' ':23,'Введите элементы матрицы B');
                 for i:=1 to m do for j:=1 to n do
                     begin
                      write ('A[',i,',',j,']=');
                       readln (a[i,j]);
                     end;
           writeln (' ':23,'Введите элементы вектора C');
                 for l:=1 to k do 
                     begin
                      write ('C[',i,']=');
                       readln (c[l]);
                     end;
...............

[volvo]

Серёжка, кстати, это - классический пример ситуации, когда человек сначала создает себе проблемы, а потом успешно их решает... А если не создавать?

Я вот о чем: смотрим внимательно на задание -

Дана матрица B размером m*n и вектор C размером k, нужно заменить вектором С столбцы марицы B, не содержащие ни одного отрицательного элемента?

Представляешь, насколько все будет проще, если рассматривать матрицу НЕ как массив строк (что ты делаешь сейчас), а как массив столбцов? С одной стороны это облегчает поиск отрицательных элементов в столбце (ты же будешь работать со столбцом, как с обычным массивом)... С другой стороны - замена столбца - вообще одним оператором...

[Серёжка]

Серёжка, кстати, это - классический пример ситуации, когда человек сначала создает себе проблемы, а потом успешно их решает... А если не создавать?

Я вот о чем: смотрим внимательно на задание - Представляешь, насколько все будет проще, если рассматривать матрицу НЕ как массив строк (что ты делаешь сейчас), а как массив столбцов? С одной стороны это облегчает поиск отрицательных элементов в столбце (ты же будешь работать со столбцом, как с обычным массивом)... С другой стороны - замена столбца - вообще одним оператором...

Ну я примерно так и мыслю, просто мои познания Паскаля очень, очень маленькие.
А код будет примерно такой при замене столбцов, правда я его ещё не додумал:

For j:=1 to n do
For i:=1 to m do
begin
А вот здесь я должен проверит если ли в столбце отрицательный
элемент или нет, если нет заменить этот столбей на вектор
end

Если что не та подправте пожалуста.

Сообщение отредактировано: Серёжка - 16.05.2007 11:09