Листинг программы

program z17;

{ На клеточном листе бумаги размером M/N расположены прямоугольники.

  Задан массив M/N в котором элемент a[i,j]=1 если клетка листа (i,j)

  яв-ся частью прямоугольника, и a[i,j]=0 если это пустая клетка.

  Напечатать число прямоугольников.                                 }

uses crt;

var i,j,m,n,k:longint;

    a:array[1..100,1..100]of integer;

 begin

  clrscr;

   write('m=');readln(m);

   write('n=');readln(n);

   for j:=1 to n do

    for i:=1 to m do

     begin

      write('a[',i,',',j,']=');readln(a[i,j]);

     end;

   for j:=1 to n do

    for i:=1 to m do

     if a[i,j]=1 then

      if (a[i+1,j]=0)and(a[i+1,j+1]=0)and(a[i,j+1]=0)then inc(k);

   write('Ответ: ',k);

  readln;

 end.