Информатика паскаль. задана квадpатная таблица а (n, n) , элементами котоpого являются нули и единицы. подсчитайте в ней: 1) количество стpок, в котоpых есть тpи нуля, pасположенных pядом; 2) количество столбцов, в котоpых нули и единицы чеpедуются; 3) количество единичных столбцов и количество нулевых стpок. хотя-бы одну из программ, выручайте!

Pascalabc.net 3.3.5, сборка 1659 от 09.04.2018 внимание! если программа не работает, обновите версию! begin   var n: =readinteger('количество строк/столбцов в таблице: ');   var a: =matrrandom(n,n,0,1);   a.println(2); writeln(2*a.colcount*'-');   // 1   var k: =0;   for var i: =0 to a.rowcount-1 do       for var j: =0 to a.colcount-3 do           if (a[i,j]=0) and (a[i,j+1]=0) and (a[i,j+2]=0) then begin               k+=1; break               end;   writeln('1: ',k);   // 2   k: =0;   for var j: =0 to a.colcount-1 do       if (a[0,j]=0) and (a[1,j]=1) then begin           var (i,flag): =(2,true);           while i< =a.rowcount-2 do begin               if not ((a[i,j]=0) and (a[i+1,j]=1)) then                   begin flag: =false; break end               else i+=2               end;           if flag then k+=1           end       else           if (a[0,j]=1) and (a[1,j]=0) then begin               var (i,flag): =(2,true);               while i< =a.rowcount-2 do begin                   if not ((a[i,j]=1) and (a[i+1,j]=0)) then                       begin flag: =false; break end                   else i+=2                   end;               if flag then k+=1           end;   writeln('2: ',k);   // 3   var r0: =a.rows.where(row-> row.all(t-> t=;   var c1: =a.cols.where(col-> col.all(t-> t=;   writeln('3: нулевых строк ',r0,', единичных колонок ',c1) end. пример количество строк/столбцов в таблице: 4   1 1 0 1   0 0 0 1   1 1 1 1   0 1 1 1 1: 1 2: 1 3: нулевых строк 0, единичных колонок 1

в). продолжать набор текста, не обращая внимания на конец строки, — на новую строку курсор перейдёт автоматически