program program4

program program4 ;

var c:array[1..2] of string[200];

s:array[1..10] of integer;

m,n,i:integer ;

procedure numara;

var cod:boolean;

i,j,nr:integer;

begin

for j:=1 to n do begin

nr:=0;cod:=true;

for i:=1 to m do

if c[i,j]='1' then begin

if not cod then begin

cod:=true;inc(s[nr]);nr:=0;

end

end

else begin

if cod then begin

nr:=1;cod:=false ;

end

else inc(nr);

end;

if not cod then inc(s[nr]);

end;

end;

begin

readln(m,n);

for i:=1 to m do readln(c[i]);

numara;

for i:=1 to m do

if s[i] <>0 then write(i,' ',s[i],' ');

read(i);

end.

输出：_____________________。