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

annamikhaylova5 annamikhaylova5    2   22.07.2019 11:00    4

Ответы
VikaGrin1 VikaGrin1  03.10.2020 10:37
// 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)
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика