Написать программу для pascal.

дан массив а(6,6). найти максимум среди элементов повторившихся более одного раза.

, заранее огромное .

HotaruAnastasija HotaruAnastasija    3   22.12.2019 18:20    0

Ответы
koretstanya1 koretstanya1  10.10.2020 22:29

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

begin

 var a := MatrRandom(6, 6, -20, 20);

 a.Println(4);

 a.ElementsByRow

     .GroupBy(p -> p)

     .Where(p -> p.Count > 1)

     .MaxBy(p-> p.Key)

     .Distinct

     .Println

end.


Написать программу для pascal.дан массив а(6,6). найти максимум среди элементов повторившихся более
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика