===== 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.
===== 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.