Question

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

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

Помогите пожалуйста, заранее огромное спасибо.

Answer 1

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