Найти максимум в каждой строке матрицы

begin
  var n := ReadlnInteger('N =');
  var a := MatrRandomInteger(n, n, -50, 50); a.Println;
  writelnformat('Максимумы: {0}{2}{1}', a.Rows.Select(v -> v.Max).JoinIntoString,
    a.Rows.Select(v -> v.Select((c, i) -> c = v.Max ? i : -1).Where(v -> v <> -1).First)
      .Distinct.Count = n ? 'По одному в каждом столбце' : 'Не в каждом столбце', NewLine);
end.

begin
  var n := ReadlnInteger('N =');
  var a := MatrRandomInteger(n, n, -50, 50); a.Println;
  
  var (indices, maxs) := a.Rows.Select(v -> v.Numerate.MaxBy(x -> x.Item2)).UnZipTuple;
  WritelnFormat('Максимумы: {0}' + NewLine + '{1}', maxs.JoinIntoString, 
                indices.Distinct.Count = n ? 'По одному в каждом столбце' : 'Не в каждом столбце');
end.

  var (indices, maxs) := a.Rows.Select(v -> (v.ToArray.IndexesOf(x -> x = v.Max), v.Max)).UnZipTuple;
  WritelnFormat('Максимумы: {0}' + NewLine + '{1}', maxs.JoinIntoString, 
                indices.SelectMany(v -> v).Distinct.Count = n ? 'В каждом столбце' : 'Не в каждом столбце');

  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) ? 
                  'В каждом столбце строго по одному максимуму' : 'Не по одному максимуму в каждом столбце');