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

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

  • //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.

You may also like

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *

91 − 84 =