Question

Дана целочисленная матрица NxN найти номера столбцов все элементы которых равны

Answer 1

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Количество строк(столбцов) в матрице:');
  Writeln('*** Исходная матрица ***');
  var a:=MatrRandom(n,n,1,2);
  a.Println(2); Writeln(2*n*'-');
  for var i:=0 to n-1 do begin
    var p:=a[0,i];
    if a.Col(i).All(t->t=p) then Print(i+1)
    end;
end.

Пример
Количество строк(столбцов) в матрице: 5
*** Исходная матрица ***
 2 1 2 2 2
 1 1 2 2 1
 2 1 2 1 2
 1 1 2 2 2
 2 1 1 2 1
----------
2

Answer 2

Для нахождения номеров столбцов, в которых все элементы равны, можно пройтись по каждому столбцу матрицы и проверить, что все его элементы равны между собой. Если это условие выполняется, то номер столбца подходит. Вот алгоритм на Python, который реализует это:

pythonCopy code
def find_columns_with_equal_elements(matrix):
    n = len(matrix)
    equal_columns = []

    for col in range(n):
        column_elements = [matrix[row][col] for row in range(n)]
        if all(element == column_elements[0] for element in column_elements):
            equal_columns.append(col)

    return equal_columns

# Пример использования:
matrix = [
    [1, 2, 3, 4],
    [2, 2, 2, 2],
    [5, 5, 5, 5],
    [6, 6, 6, 6]
]

result = find_columns_with_equal_elements(matrix)
print("Номера столбцов с равными элементами:", result)

В данном примере матрица matrix имеет размерность 4x4, и функция find_columns_with_equal_elements вернет список [1, 3], так как элементы в столбцах с номерами 1 и 3 равны между собой (2 и 6 соответственно). Обратите внимание, что в этой реализации предполагается, что матрица matrix является списком списков (двумерным массивом).