Составить программу, которая формирует случайным образом одновременный массив из N...

Question

Составить программу, которая формирует случайным образом одновременный массив из N элементов и выводит повторяющийся элемент должен выводиться один раз независимо от того, сколько раз он встречается в массиве

Answer 1

// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),1,10); a.Println;
  a.GroupBy(t->t).Select(t->(t.Key,t.Count)).Where(t->t[1]>1).
      Select(t->t[0]).OrderBy(t->t).Println;
end.

Пример
n= 15
3 2 6 9 5 1 8 5 1 7 10 5 8 7 7
1 5 7 8