Среди тех строк целочисленной матрицы, которые содержат только нечетные элементы, найти строку с максимальной суммой модулей элементов.
154
235
Ответы на вопрос:
const
n = 5;
type
matr = array[1..n, 1..n] of integer;
procedure zapolnenie(var mas: matr);
var
i, j: integer;
begin
for i := 1 to n do
for j := 1 to n do
mas[i, j] := random(20) - 20;
end;
procedure vivod(const mas: matr);
var
i, j: integer;
begin
for i := 1 to n do
begin
for j := 1 to n do
Write(mas[i, j]:5);
Writeln;
end;
end;
function maxstr(const mas: matr; var str: integer): integer;
var
i, j, max, sum: integer;
begin
for i := 1 to n do
begin
sum := 0;
for j := 1 to n do
sum := sum + abs(mas[i, j]);
if max < sum then
begin
max := sum;
str := i;
end;
end;
maxstr := max;
end;
var
mas: matr;
str: integer;
begin
zapolnenie(mas);
vivod(mas);
Writeln;
Writeln('Сумма: ', maxstr(mas, str), ' Строка: ', str);
end.
n = 5;
type
matr = array[1..n, 1..n] of integer;
procedure zapolnenie(var mas: matr);
var
i, j: integer;
begin
for i := 1 to n do
for j := 1 to n do
mas[i, j] := random(20) - 20;
end;
procedure vivod(const mas: matr);
var
i, j: integer;
begin
for i := 1 to n do
begin
for j := 1 to n do
Write(mas[i, j]:5);
Writeln;
end;
end;
function maxstr(const mas: matr; var str: integer): integer;
var
i, j, max, sum: integer;
begin
for i := 1 to n do
begin
sum := 0;
for j := 1 to n do
sum := sum + abs(mas[i, j]);
if max < sum then
begin
max := sum;
str := i;
end;
end;
maxstr := max;
end;
var
mas: matr;
str: integer;
begin
zapolnenie(mas);
vivod(mas);
Writeln;
Writeln('Сумма: ', maxstr(mas, str), ' Строка: ', str);
end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Другие предметы
-
найдите в справочниках или в интернете по какой технологии на...
Ok7a15.06.2020 01:03 -
соединительная ткань размягчается легче у говядины или у птицы...
MaryanaSokolova040405.01.2023 03:05 -
Как сделать кувырок назад с полушпагатом не укатившись в бок=)...
Милошка2826.03.2023 20:36 -
Які є правила дружби?...
Katerinka64rus03.09.2021 23:04 -
перечислите элементы объединения и пересечения монодеств,изображенных...
Патрик311113.04.2020 09:10 -
На какие темы вы общаетесь со своими интернет друзьями социофобу,...
ksenia91517.06.2023 03:29 -
напишите сообщение о Пермяке коротко)...
annakivilyova15.03.2023 08:25 -
Расскажите свою смешную историю (длинную)...
lno1522.10.2022 21:14 -
Причины недовыполнения плана по ассортименту могут быть внешними...
VlEllen20.01.2022 03:37 -
Коэффициент оборота по приему рабочих (Кпр) определяется отношением...
динара25914.05.2023 21:40
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.