Обработка матриц и массивов

Ответить
torf
Сообщения: 1
Зарегистрирован: 18 апр 2009, 00:50

помогите решить задачу на Pascal

произвольно задать квадратную матрицу размером n на n
1)создать одномерный массив, в котором каждый элемент равен номеру последнего положительно элемента в каждом столбце матрицы
2)создать одномерный массив, в котором каждый элемент равен минимальному элементу среди отрицательных элементов, стоящих на четных местах в соответсвующим столбце матрицы.

заранее огромное спасибо
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
наработка 1 задания
я понимаю тут нужно еще обнулить значение когда условие не выполняется, но незнаю как это правильно сделать-(

Код: Выделить всё

k:=0;
    for j:=1 to n do begin
    for i:=1 to n do 
        if m[i,j] >0 then begin
          k:=k+1;
          s[k]:=i;
        end;
        write(s[k], ' ');
    end;
writeln;
Ответить