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

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