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