Дан набор из n целых положительных чисел. необходимо определить, какая цифра чаще всего встречается в десятичной записи чисел этого набора. если таких цифр несколько, необходимо вывести наибольшую из них. напишите эффективную по времени и по памяти программу для решения этой . программа считается эффективной по времени, если при увеличении количества исходных чисел n в k раз время работы программы увеличивается не более чем в k раз. программа считается эффективной по памяти, если память, необходимая для хранения всех переменных программы, не превышает одного килобайта и не увеличивается с ростом n. описание входных и выходных данных в первой строке входных данных задаётся количество чисел n (1 ≤ n ≤ 1000). в каждой из последующих n строк записано одно натуральное число, не превышающее 10 000. пример входных данных: 3 15 25 32 пример выходных данных для выше примера входных данных: 5 в десятичной записи чисел заданного набора чаще всего – по 2 раза – встречаются цифры 2 и 5, большая из них – 5.

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

Evelynimmortal

05.03.2020 21:01

В многопользовательской игре Agar.io игроки управляют бактериями. У каждой бактерии есть размер — целое положительное число. Если встречаются две бактерии разного размера,...

Mimishichka

28.01.2020 08:55

Информатикашыгару жолы калай?...

Anonim223332

16.09.2020 18:57

Закономерность расположения фигур в редакторе поинт...

дизиль

16.09.2020 18:57

Дано четырехзначное число. вывести на экран каждую цифру отдельно (программа pascal)...

АлексейGrigorjew

31.05.2022 06:47

Сколько килобайтов памяти необходимо для хранения двенадцати изображений размером с экран монитора разрешающая которого равна 800 х 600 а кол во используемых цветов равно...

максон50

19.05.2021 06:31

составьте программу вывода в заданную точку экрана какого-либо символа, определяемого с датчика случайных чисел. Pascal ABC....

Springtrap222134124

12.02.2021 11:39

Дана последовательность чисел длиной N(1 = N = 30). Создайте проект, который выводит на экран сумму цифр в записи чисел, которая является чётной , очень , заранее...

Albert116

18.10.2022 11:04

Четыре девочки ели мандарины. аня съела больше, чем юля. ира - больше, чем леся, но меньше, чем юля. расставь имена девочек в порядке возрастания количествамандаринов, которые...

кококо23

18.10.2022 11:04

Не могу вписать формулу в ячейку в таблице эксель. : применить дифференцированную надбавку к рейтингу защиты: если рейтинг в диапазоне 50-74 , то надбавка 3%; если свыше 74,...

norley15

25.09.2022 05:56

Если две параллельные прямые пересечены третьей прямой то сумма односторонних углов равна 180?...

Ответ:

huhttt

20.08.2020 14:23

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

0,0(0 оценок)

Ответ:

Cheloces

20.08.2020 14:23

// 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.

И это - всё. Работает точно в соответствии с примером, поэтому результатов не привожу.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку