Отсортировать массив и найти количество различных чисел в нем.Паскаль

Отсортировать массив и найти количество различных чисел в нем.Паскаль
Гость
Ответ(ы) на вопрос:
Гость
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016 begin   var a:=ArrRandom(ReadInteger('n='),1,10); a.Println;   var d:=new dictionary;   foreach var e in a.Sorted do d[e]:=d.Get(e)+1;   d.Println(NewLine) end. Тестовое решение: n= 15 8 4 8 6 7 8 4 4 7 2 4 5 5 5 7 (2,1) (4,4) (5,3) (6,1) (7,3) (8,3)
Не нашли ответ?
Ответить на вопрос
Похожие вопросы