Дана целочисленная квадратная матрица А порядка N. Найти максимум в каждой строке. Если эти максимумы располагаются по о - PascalABC.NET
Формулировка задачи:
Дана целочисленная квадратная матрица А порядка N. Найти максимум в каждой строке. Если эти максимумы располагаются по одному в каждом столбце, то вывести соответствующее сообщение.
Решение задачи: «Дана целочисленная квадратная матрица А порядка N. Найти максимум в каждой строке. Если эти максимумы располагаются по о»
textual
Листинг программы
var maxs := a.Rows.Select(v -> v.Max); WritelnFormat('Максимумы: {0}' + NewLine + '{1}', maxs.JoinIntoString, a.Cols.Select(v -> v.Count(x -> maxs.Contains(x))).All(x -> x = 1) ? 'В каждом столбце строго по одному максимуму' : 'Не по одному максимуму в каждом столбце');
Объяснение кода листинга программы
- Импортируется пространство имен System.
- Вектор a инициализируется квадратной матрицей целых чисел порядка N.
- Создается пустой вектор maxs.
- Происходит итерация по каждой строке матрицы a.
- В каждой строке находится максимальное значение.
- Полученное максимальное значение добавляется в вектор maxs.
- Выводится сообщение, содержащее вектор maxs и количество столбцов, в которых встречаются максимальные значения.
- Если количество столбцов, в которых встречаются максимальные значения, равно 1, выводится сообщение «В каждом столбце строго по одному максимуму».
- Если количество столбцов, в которых встречаются максимальные значения, больше 1, выводится сообщение «Не по одному максимуму в каждом столбце».
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д