двумерные массивы (Паскаль)

[nanowind]

Дана целочисленная прямоугольная матрица. Определить:
1.Количество отрицательных элементов в тех строках, которые содержат хотя бы один нулевой элемент (офорить в виде функции).
2.Номера строк и столбцов всех седловых точек матрицы (оформить в виде процедуры).
Заранее большое спасибо тому, кто поможет^^

[alexcoder]

Спасибо сыт не будешь)))

[nikita33321]

1 задача

for i:=0 to n do
   begin
     fl = false;
     for j:=0 to m do
        begin
           // находм 0
          if (a[i,j] = 0)
            begin
                 // опракидываем флажек
                fl := true;
                   // можно прервать через break
            end;
        end;
       if (fl = true)
          begin
                    for j:=0 to m do
                       begin
                            if(a[i,j] < 0 )
                                 begin
                                       // добавляем в новый массив b[i]
                                   end;
                       end;
           end;
    end;

Давно паскалем не пользовался, думаю смысл понятен. Конечно задачу модно оптимизировать.