Răspuns:
program nule;
type matrice = array[1..100, 1..100] of integer;
var n,m,i,j,nr0,linie,max0:integer; a:matrice;
begin
read(n, m);
max0:=0;
for i:=1 to n do
begin
nr0:=0;
for j:=1 to m do
begin
read(a[i,j]);
if a[i,j]=0 then nr0:=nr0+1;
end;
if nr0>max0 then begin max0:=nr0; linie:=i; end;
end;
if (max0=0) then writeln('nu exista linie cu nule..')
else writeln(linie);
end.
Explicație:
