Turbo pascal.дано: массивы a ( n1,m1) , b(n2,m2),c (n3,m3). определить в каждом из заданных массивов сумму наибольших значений элементов его четных строк . определение суммы наибольшего элемента четных строк массивы осуществить в подпрограмме. (желательно записать через функцию)

174

314

Посмотреть ответы 2

Ответы на вопрос:

andreywwwoooandrey

Информатика

4,8(65 оценок)

Program example; const r = 20; type tm = array[1..r, 1..r]of integer; function getmax(var a: tm; n: integer; m: integer): integer; // возвращает значение максимального элемента в строке n массива а var j, max: integer; begin max : = -32767; for j : = 1 to m do if max < a[n, j] then max : = a[n, j]; getmax : = max end; function summax(var a: tm; n: integer; m: integer; p: integer; q: integer): integer; // проверяет условие n< =r, m< =r, при нарушении возвращает значение -32768 // полагает, что массив [1..n,1..m] размещен внутри массива a[1..r,1..r] // заполняет выбранную область массива а случайными числами из диапазона (p; q) // возвращает значение суммы максимальных элементов четных строк выбранной области. var i, j, s: integer; begin if (n > r) or (m > r) then summax : = -32767 else begin randomize; for i : = 1 to n do for j : = 1 to m do a[i, j] : = random(p + q) - p; s : = 0; i : = 2; while i < = n do begin s : = s + getmax(a, i, m); i : = i + 2 end; summax : = s end end; const n1 = 5; m1 = 3; n2 = 4; m2 = 4; n3 = 3; m3 = 7; var i, j, sum: integer; a: tm; begin sum : = summax(a, n1, m1, -30, 60); writeln('массив a[1..', m1, ',1..', n1, ']'); for i : = 1 to n1 do begin for j : = 1 to m1 do write(a[i, j]: 4); writeln; end; writeln('сумма максимумов четных строк массива a равна ', sum); sum : = summax(a, n2, m2, 0, 90); writeln('массив b[1..', m2, ',1..', n2, ']'); for i : = 1 to n2 do begin for j : = 1 to m2 do write(a[i, j]: 4); writeln; end; writeln('сумма максимумов четных строк массива b равна ', sum); sum : = summax(a, n3, m3, 20, 50); writeln('массив c[1..', m3, ',1..', n3, ']'); for i : = 1 to n3 do begin for j : = 1 to m3 do write(a[i, j]: 4); writeln; end; writeln('сумма максимумов четных строк массива c равна ', sum); end. контрольный пример: массив a[1..3,1..5] 47 55 48 51 45 49 32 47 53 54 31 33 56 50 36 сумма максимумов четных строк массива a равна 105 массив b[1..4,1..4] 85 49 72 13 66 57 22 54 67 63 76 53 79 2 38 88 сумма максимумов четных строк массива b равна 154 массив c[1..7,1..3] 46 18 36 -10 31 24 -3 22 32 29 39 21 41 -19 9 48 47 -1 4 29 11 сумма максимумов четных строк массива c равна 41

ЭляВ1988

Информатика

4,4(7 оценок)

Сестра - брат отец - дочь мать - сын

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.