Ответы на вопрос:
// pascalabc.net 3.0, сборка 1128 procedure deleterow(var a: array[,] of integer; r: integer); begin var rows: =a.getlength(0); var cols: =a.getlength(1); for var i: =r to rows-2 do for var j: =0 to cols-1 do a[i,j]: =a[i+1,j]; setlength(a,rows-1,cols) end; begin var b: array[,] of integer: =((1,2,3,,6,0,8), (9,10,11,,0,15,,18,19,20)); writeln('исходный массив: ',b); var n: =b.getlength(0); var m: =b.getlength(1); // удаляем строки без нулевых элементов for var i: =n-1 downto 0 do begin var foundzero: =false; for var j: =0 to m-1 do if b[i,j]=0 then begin foundzero: =true; break end; if not foundzero then deleterow(b,i) // удалить строку end; writeln('результирующий массив: ',b); end. тестовое решение: исходный массив: [[1,2,3,0],[5,6,0,8],[9,10,11,12],[13,0,15,16],[17,18,19,20]] результирующий массив: [[1,2,3,0],[5,6,0,8],[13,0,15,16]]
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
annarykova4036712.05.2022 03:12
-
misterkaha11.01.2021 10:24
-
Оксана197007.12.2022 15:47
-
Adelina17409.09.2022 22:44
-
zadorina6609.04.2022 19:32
-
AREN1208200318.02.2021 01:04
-
Ḱặрặṃềӆьҟӑ25.11.2022 10:42
-
ваня1000108.09.2020 19:15
-
fakt00772308.04.2023 13:47
-
ubdjf03.12.2022 14:18
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.