Ответы на вопрос:
// pascalabc.net 3.2, сборка 1385 от 14.02.2017 // внимание! если программа не работает, обновите версию! begin var a: =arrrandom(readinteger('n='),1,9); a.println; var d: =new dictionary< integer,integer> ; foreach var e in a do d[e]: =d.get(e)+1; var s: =d.where(x-> x.value> 1).select(x-> x.key); if s.count=0 then writeln('нет дублирующихся элементов') else begin write('дублирующиеся элементы: '); s.println; write('в порядке возрастания: '); s.sorted.println end end. пример n= 20 6 8 7 3 8 6 4 9 9 3 6 1 6 6 9 7 2 5 9 9 дублирующиеся элементы: 6 8 7 3 9 в порядке возрастания: 3 6 7 8 9
Популярно: Информатика
-
457800087222.03.2022 06:30
-
xcp414.03.2022 18:26
-
masenkon52402.04.2020 00:52
-
MiaDakota22.01.2023 15:28
-
tv7antena08.11.2022 04:47
-
ЛеКи23.10.2021 11:26
-
Pechencka66604.02.2021 04:07
-
anna33366675675628.03.2021 13:57
-
KOROTKOVAKATA08.10.2022 06:24
-
halelaiwi29.12.2020 22:07