Вот еще одна задача. Решите еслс моно.

Задана прямоугольная таблица А[1:N,1:N], элементы которой равны 0 или 1 причем А[i,i]=0 для любого i. Необходимо найти, если они есть, такие строку i0 и столбец j0, чтобы в столбце j0 были все 0, а в строке i0 - все 1 (кроме элемента A[i0,i0], равного 0).

Что у тебя не получается конкретно ? Что уже сделал ?

Вот функция, возвращает номер строки, в которой все элементы единицы, кроме элемента диаганали, если такой строки нет, вернет 0
вторую ф-ю по аналогии ...

const n=5;
type
   TMx = array[1..n,1..n] of integer;

...
function GetRow(x : TMx) : Byte;
var
   i,j : byte;
   find : boolean;
begin
   find := false;
   i := 1;
   while(i<=n) and not(find) do begin
      find := true;
      j := 1;
      while(j<=n) and find do
       if (x[i,j] <> 1) and (i<>j) then
        find := false
       else
        inc(j);
       if not(find) then
        inc(i);
   end;

   if find then GetRow := i
    else GetRow := 0;
end;