Составте 4 процедуры для обработки двумерного массива( pascaleabs.net) 1) определить сумму и количество четных элементов двумерного массива. 2) находить "кордитнаты" максимального элемента. 3) заменить все четные значения на 0 4) определить номер строки в которой сумма элементов максимальна заранее !
181
261
Ответы на вопрос:
// pascalabc.net 3.2, сборка 1401 от 14.03.2017 // внимание! если программа не работает, обновите версию! procedure sumkoleven(a: array[,] of integer; var s,k: integer); begin var p: =a.rows.selectmany(x-> x).where(x-> x.iseven); s: =p.sum; k: =p.count end; procedure maxcoord(a: array[,] of integer; var imax,jmax: integer); begin (imax,jmax): =(0,0); for var i: =0 to a.rowcount-1 do for var j: =0 to a.colcount-1 do if a[i,j]> a[imax,jmax] then (imax,jmax): =(i,j) end; procedure zeroeven(a: array[,] of integer); begin for var i: =0 to a.rowcount-1 do for var j: =0 to a.colcount-1 do if a[i,j].iseven then a[i,j]: =0 end; procedure maxsumrow(a: array[,] of integer; var irow: integer); begin irow: =a.rows.select(x-> x.sum).toarray.indexmax; end; begin var n: =readinteger('количество строк в массиве: '); var m: =readinteger('количество столбцов в массиве: '); writeln('*** исходный массив [',n,',',m,'] ***'); var a: =matrrandom(n,m,-99,99); a.println(4); writeln(4*a.colcount*'-'); var sum,kol: integer; sumkoleven(a,sum,kol); writeln('s=',sum,', k=',kol); var im,jm: integer; maxcoord(a,im,jm); writeln('координаты максимума [',im+1,',',jm+1,']'); var b: =copy(a); zeroeven(b); b.println(4); writeln(4*b.colcount*'-'); maxsumrow(a,im); writeln('максимальная сумма у строки ',im+1) end. пример количество строк в массиве: 5 количество столбцов в массиве: 8 *** исходный массив [5,8] *** 23 94 26 40 -88 -29 88 -46 -98 64 -78 93 17 36 66 56 -52 -16 -7 -33 -63 -95 40 96 10 -30 79 -75 -47 83 30 -70 -37 -50 -80 18 -7 -43 68 -68 s=56, k=25 координаты максимума [3,8] 23 0 0 0 0 -29 0 0 0 0 0 93 17 0 0 0 0 0 -7 -33 -63 -95 0 0 0 0 79 -75 -47 83 0 0 -37 0 0 0 -7 -43 0 0 максимальная сумма у строки 2
Алгоритм мальчик пошел в школу зашел в школу переоделся з дал одежду и пошел в класс
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
1234567891011121314з12.02.2022 14:09
-
alpet0318.02.2021 16:13
-
andreykakachnov25.02.2021 03:30
-
pomogi1232116.09.2022 22:37
-
oleg3464304.03.2023 13:15
-
Николо22319.05.2021 03:00
-
kseniarevda719.01.2021 05:17
-
anna337129.09.2022 12:14
-
Vladamira5516.03.2023 06:36
-
Butuzovapelageya06.01.2020 14:53
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.