Question

Дан целочисленный массив А из 100 элементов. Написать программу, которая выдает на экран элементы массива, встречающиеся более одного раза.

Answer 1

//PascalABC.Net 3.1.0.1200

begin
    var a := ArrRandomInteger(100, 1, 100).toList;
    Println(A);
    a := a.Sorted.toList;
    a := a.Pairwise().Where(x -> x.Item1 = x.Item2).Select(x -> x.Item1).toList;
    a := a.Distinct.toList;
    Println(A);
end.