k:=0;
for x=1 to n do begin
      z:=0;
      for y=1 to m do z:=z+A[x,y];
      if(z>0) then inc(k);
end;
writeln(k);