// PascalABC.NET 3.3, сборка 1576 от 16.11.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(20,0,10); a.Println; Writeln('Результаты в форме "(элемент, число повторов)")'); a.GroupBy(t->t).Select(t->(t.Key,t.Count)).Where(t->t[1]>1) .OrderBy(t->t[0]).Println(NewLine); end.
Пример 6 9 1 2 10 8 6 3 7 7 9 5 5 7 10 2 9 3 2 7 Результаты в форме "(элемент, число повторов)") (2,3) (3,2) (5,2) (6,2) (7,4) (9,3) (10,2)
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(20,0,10); a.Println;
Writeln('Результаты в форме "(элемент, число повторов)")');
a.GroupBy(t->t).Select(t->(t.Key,t.Count)).Where(t->t[1]>1)
.OrderBy(t->t[0]).Println(NewLine);
end.
Пример
6 9 1 2 10 8 6 3 7 7 9 5 5 7 10 2 9 3 2 7
Результаты в форме "(элемент, число повторов)")
(2,3)
(3,2)
(5,2)
(6,2)
(7,4)
(9,3)
(10,2)
2. В цикле перебрать все элементы и повторы.