Question

Составьте программу, выясняющую, все ли элементы двухмерного массива А(P,Q)
различны.
в паскале

Answer 1

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

begin

 var (p, q) := ReadInteger2('Введите p и q:');

 var a := MatrRandom(p, q, -99, 99);

 a.Println;

 if a.ElementsByRow.Distinct.Count = p * q then

   Print('Все элементы различны')

 else

   Print('Есть повторяющиеся элементы')

end.