Ответы на вопрос:
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
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
простоНастя222806.02.2020 11:03
-
Apelsin240323.03.2020 14:53
-
Likamm25.03.2020 14:02
-
Dartvaider30119704.02.2021 21:41
-
AZAZA200811.01.2022 17:23
-
Bakuninalexander08.03.2021 18:42
-
osapkina08.09.2022 13:41
-
Cyndyma29.01.2022 02:01
-
linaaaaaaa1111111107.01.2023 02:52
-
Катюха123Печенька06.01.2021 07:23
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.