Матрица 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.