Регистрация
ТахминаЖамалдинова
20.05.2020 23:58
Информатика
Есть ответ 👍

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

150
356
Посмотреть ответы 2

Ответы на вопрос:

peppapig12
peppapig12
4,4(31 оценок)

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

LILIAGNATIV
LILIAGNATIV
4,5(1 оценок)

Там не чего не понятно

Понятней сфотай

Популярно: Информатика