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

VeRa2KoToVa1 VeRa2KoToVa1    1   06.04.2020 13:11    1

Ответы
Sveto4ka342 Sveto4ka342  03.09.2020 19:47

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


Составьте программу, выясняющую, все ли элементы двухмерного массива А(P,Q) различны. в паскале
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика