Ответы на вопрос:
Pascalabc.net 3.3.5, сборка 1660 от 20.04.2018 внимание! если программа не работает, обновите версию! begin var a: =arrrandom(readinteger('n='),0,9); a.println; a.groupby(t-> t).select(t-> (t.key,t.(t-> t[0]) .foreach(t-> writeln(t[0],' - ',t[1])) end. пример n= 100 5 7 6 0 1 3 1 4 9 2 8 7 5 2 1 6 1 6 6 6 1 0 1 2 4 9 7 0 5 6 2 7 3 3 1 5 7 5 9 8 1 8 7 8 8 7 3 2 4 4 5 6 8 3 9 4 5 3 6 2 6 0 9 3 9 0 4 2 1 6 9 6 7 7 5 3 3 3 3 7 6 4 5 0 0 5 8 0 4 6 9 3 8 6 1 0 9 3 8 7 0 - 9 1 - 10 2 - 7 3 - 13 4 - 8 5 - 10 6 - 14 7 - 11 8 - 9 9 - 9
Популярно: Информатика
-
Nastyal132407.07.2022 23:50
-
Мишa128.11.2020 07:06
-
WhiteRos09.04.2020 11:38
-
Diana10200402.10.2022 06:39
-
afspafa23.12.2020 11:31
-
lexazykov2001424.04.2020 15:15
-
Chinchil1a06.03.2022 12:32
-
dema117921.09.2020 23:35
-
nubjoper23.02.2021 05:40
-
moki221.01.2022 09:47