Pascalabcnet дан набор из n целых положительных чисел. для каждого числа вычисляется сумма двух последних цифр в его десятичной записи (для однозначных чисел предпоследняя цифра считается равной нулю). необходимо определить, какая сумма при этом получается чаще всего. если таких сумм несколько, необходимо вывести наибольшую из них. напишите эффективную по времени и по памяти программу для решения этой . программа считается эффективной по времени, если при увеличении количества исходных чисел n в k раз время работы программы увеличивается не более чем в k раз.
Алина13445
3
08.09.2019 05:31
0
Другие вопросы по теме Информатика
ordabaevabayan
19.08.2019 23:10
alexandra67346783
07.07.2019 10:10
dnyagu
08.10.2019 23:06
Stukaneva
08.10.2019 23:16
nabisat2017
08.10.2019 21:34
Гульнара1709
20.08.2019 07:40
zincenkoe759
20.08.2019 07:50
konulrzayevaa2
20.08.2019 07:50
Популярные вопросы
- Сделайте морфологический разбор слова от !...
2 - We / not cut down trees ; the air /be clean and fresh...
2 - Дано: a=111001102, b=2718. какое из чисел с, записанных в шестнадцатеричной...
2 - Примеры реакций, характеризующих свойства оксида и гидроксида бария...
1 - Для бутадиена-1.3 определить: а) класс вещества б) типы гибридизации...
2 - 1. скорость моторной лодки по течению реки 25,5 км/ч. скорость течения...
3 - Мир,в котором мы живём,полон для тебя загадок и тайн.сначала кажется,что...
1 - Указати групу речовин що реагують з цинк оксидом а)h2o,koh,hno3 б)al2o3,h2o,hno3...
1 - 1) все последние дни сотников был словно в прострации. 2) чувствовал...
3 - От чего зависит давление жидкости на дне бутылки?...
2
s,i,x,n:integer;
begin
for i:=1 to 18 do a[i]:=0;
readln(n);
for i:=1 to n do begin
readln(x);
s:=x mod 10;
x:=x div 10;
s:=(x mod 10)+s;
a[s]:=a[s]+1;
end;
s:=1;
for i:=2 to 18 do if a[i]>=a[s] then s:=i;
writeln(s);
end.