Отсортировать массив и найти количество различных чисел в нем.Паскаль
Отсортировать массив и найти количество различных чисел в нем.Паскаль
Гость
Ответ(ы) на вопрос:
Гость // PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
var a:=ArrRandom(ReadInteger('n='),1,10); a.Println;
var d:=new dictionary<integer,integer>;
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)
Не нашли ответ?
Похожие вопросы