Question

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

Answer 1

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

Answer 2

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

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