Ответы на вопрос:
// pascalabc.net 3.1, сборка 1219 от 16.04.2016 type matrix=array[,] of integer; procedure matprint(a: matrix); begin var m: =length(a,1)-1; for var i: =0 to length(a,0)-1 do begin for var j: =0 to m do write(a[i,j]: 4); writeln end end; function isequal(a: matrix; col: integer): boolean; begin var s: =sign(a[0,col]); for var i: =1 to length(a,0)-1 do s+=sign(a[i,col]); if (s=0) then result: =(a[0,col]< > 0) else result: =false end; procedure deletecol(var a: matrix; col: integer); begin var n: =length(a,0)-1; var m: =length(a,1)-1; for var j: =col+1 to length(a,1)-1 do for var i: =0 to n do a[i,j-1]: =a[i,j]; setlength(a,n+1,m) end; begin var n: =readinteger('строк: '); var m: =readinteger('столбцов: '); var a: =matrixrandom(n,m,-99,99); writeln('исходная матрица'); matprint(a); for var j: =length(a,1)-1 downto 0 do if isequal(a,j) then deletecol(a,j); writeln('результирующая матрица'); matprint(a); end. тестовое решение строк: 8 столбцов: 10 исходная матрица -3 -82 -25 -22 65 1 79 -67 -64 -82 17 36 48 -32 51 11 43 9 -35 4 -10 -5 80 82 -24 66 -12 -58 50 -94 52 70 53 85 -32 -59 46 57 -84 -44 81 71 -55 37 46 -15 -61 25 22 -7 -49 98 -42 -18 -44 -97 -63 -7 -98 99 -86 37 -17 -69 -35 46 82 62 99 11 65 85 -7 -90 23 19 -50 -56 -64 91 результирующая матрица -82 -25 -22 1 -64 36 48 -32 11 -35 -5 80 82 66 50 70 53 85 -59 -84 71 -55 37 -15 22 98 -42 -18 -97 -98 37 -17 -69 46 99 85 -7 -90 19 -64
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
senator95p0dese12.07.2021 11:02
-
LikaKotik66626.03.2021 17:59
-
kostetXD21.01.2022 16:31
-
missksyushase06.01.2020 13:53
-
кен12726.01.2020 16:05
-
zellen0429.06.2020 09:01
-
BEM00716.08.2020 19:18
-
ghhhhd07.06.2020 14:53
-
кирик7405.11.2022 19:10
-
fira910902fira07.12.2020 18:09
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.