Составьте программу, выясняющую, все ли элементы двухмерного массива А(P,Q) различны. в паскале
===== 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.
спасибо огромное)))
Пожалуйста. Distinct удаляет дубликаты, так что если они были, общее число элементов уменьшается, переставая быть равным P x Q
