MCITYHAL - Repair City Hall

Tác giả: flashmt

Ngôn ngữ: Pascal

var m,n,i,j:byte;
    a:array[1..200,1..200] of char;
    b:array[1..200] of integer;

procedure count(j:byte);
var i,t:byte;
begin
     t:=0; i:=1;
     while i<=n do
     begin
          if a[i,j]='0' then
          begin
               t:=i;
               repeat
                     inc(i);
               until (a[i,j]='1') or (i>n);
               inc(b[i-t]);
          end;
          inc(i);
     end;
end;

begin
     readln(m,n);
     for i:=1 to m do
     begin
          for j:=1 to n do
              read(a[i,j]);
          readln;
     end;
     fillchar(b,sizeof(b),0);
     for j:=1 to n do
         count(j);
     for i:=1 to m do
         if b[i]>0 then writeln(i,' ',b[i]);
end.

Download