Дан набор из n целых положительных чисел. необходимо определить, какая цифра чаще всего встречается в десятичной записи чисел этого набора. если таких цифр несколько, необходимо вывести наибольшую из них. напишите эффективную по времени и по памяти программу для решения этой . программа считается эффективной по времени, если при увеличении количества исходных чисел n в k раз время работы программы увеличивается не более чем в k раз. программа считается эффективной по памяти, если память, необходимая для хранения всех переменных программы, не превышает одного килобайта и не увеличивается с ростом n. описание входных и выходных данных в первой строке входных данных задаётся количество чисел n (1 ≤ n ≤ 1000). в каждой из последующих n строк записано одно натуральное число, не превышающее 10 000. пример входных данных: 3 15 25 32 пример выходных данных для выше примера входных данных: 5 в десятичной записи чисел заданного набора чаще всего – по 2 раза – встречаются цифры 2 и 5, большая из них – 5.
102
134
Ответы на вопрос:
Var a: array[1..1000] of integer; k: array[0..9] of integer; n,i,m: integer; begin readln(n); for i: =1 to n do readln(a[i]); for i: =0 to 9 do k[i]: =0; for i: =1 to n do begin m: =a[i]; while m> 0 do begin inc(k[m mod 10]); m: =m div 10; end; end; m: =0; for i: =1 to 9 do if k[i]> =k[m] then m: =i; writeln(m); end. пример: 3 15 25 32 5
// pascalabc.net 3.2, сборка 1387 от 20.02.2017 // внимание! если программа не работает, обновите версию! begin var n: =readlninteger; var d: =new dictionary< char,integer> ; for var i: =1 to n do foreach var e in readlninteger.tostring do d[e]: =d.get(e)+1; d.orderbydescending(x-> x.value).thenbydescending(x-> x.key) .select(x-> x.key).take(1).println end. и это - всё. работает точно в соответствии с примером, поэтому результатов не привожу.
Объяснение:
Гиперссылка
Гиперссылка (англ. hyperlink) — часть гипертекстового документа, ссылающаяся на элемент в этом документе (команда, текст, изображение, сноска) или на другой объект (файл (документ), каталог, приложение)...
Популярно: Информатика
-
айсу2018.05.2022 01:18
-
natashashvachka08.03.2021 02:24
-
nastyafominto24.05.2022 18:59
-
Snomeli05.06.2020 05:21
-
Pinkaktus14.02.2021 05:44
-
ivanoffandreii06.06.2023 17:22
-
daniil32611.03.2023 00:41
-
Kg109.11.2020 01:49
-
0987mnbv22.06.2021 23:48
-
657алЕНА02.11.2022 08:16