Матрица K (m, m) состоит из нулей и единиц. Найти в ней номера (индексы) хотя бы одной строки или хотя бы одного столбца, не содержащих единицы, либо сообщить, что таковых нет. помогите плииз

Решение на Паскале:

uses crt;

var i, j, m, x : integer; ok : boolean; r, c : array[1 ... 100] of integer;

begin read (m) ; for i : = 1 to m do begin r[i] : = 0; c[i] : = 0; end; for i : = 1 to m do for j : = 1 to m do begin read (x) ; r[i] : = r[i] + x; c[j] : = c[j] + x; end; ok : = false; for i : = 1 to m do begin if r[i] = 0 then begin ok : = true; writeln ('Row #', i) ; end; if c[i] = 0 then begin ok : = true; writeln ('Col #', i) ; end; end; if not ok then writeln ('No zero rows/cols') ; readkey; end.