Составьте программу, выясняющую, имеются ли в столбцах двухмерного массива А(N,M)...

Question

Составьте программу, выясняющую, имеются ли в столбцах двухмерного массива А(N,M) повторяющиеся элементы. Помогите, пожалуста

Answer 1

===== PascalABC.NET =====

begin

 var (n, m) := ReadInteger2('Укажите n и m:');

 var массив := MatrRandom(n, m, -99, 99);

 массив.Println;

 var Имеются := массив.Cols

     .Select(столбец -> столбец.Distinct.Count)

     .Any(количество -> количество <> n);

 if Имеются then

   Print('Имеются')

 else

   Print('Не имеются')

end.

---