Иван
5 год назад
Дан целочисленный массив А из 100 элементов. Написать программу, которая выдает на экран элементы массива, встречающиеся более одного раза.
ОТВЕТЫ
Юлиевич
Aug 9, 2019
//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 -gt; x.Item1 = x.Item2).Select(x -gt; x.Item1).toList;
a := a.Distinct.toList;
Println(A);
end.
begin
var a := ArrRandomInteger(100, 1, 100).toList;
Println(A);
a := a.Sorted.toList;
a := a.Pairwise().Where(x -gt; x.Item1 = x.Item2).Select(x -gt; x.Item1).toList;
a := a.Distinct.toList;
Println(A);
end.
22
Смежные вопросы: