Информатика-3. частотный словарь ограничение времени 1 секунда ограничение памяти 64mb ввод стандартный ввод или input.txt вывод стандартный вывод или output.txt частотный словарь представляет собой список всех различных слов, встречающихся в тексте, с указанием для слова его частоты, то есть информации о том, сколько раз это слово встретилось в тексте. вам дан частотный словарь, составленный по некоторому тексту. ваша — найти в исходном тексте наиболее часто встречающуюся букву и выяснить, сколько раз она в нём встречается. формат ввода в первой строке входа содержится одно целое число n — количество разных слов в тексте (1 ≤ n ≤ 1000). каждая из последующих n строк содержит слово, состоящее из не менее, чем одной, и не более, чем 10 строчных латинских букв, и, через пробел — целое число в интервале от 1 до 1000 — количество раз, которое соответствующее слово встретилось в тексте. формат вывода выведите одно число — сколько раз наиболее часто встречающаяся буква (или одна из наиболее часто встречающихся, если таких букв несколько) встретится в исходном тексте. пример ввод вывод 3 lets 3 go 2 solve 1 4 примечания по 4 раза в тексте встречаются буквы `l', `e' и `s'. решением к данной является программа, написанная на одном из представленных в системе языков программирования. программа должна считывать данные со стандартного потока ввода (иначе говоря, «с клавиатуры») и выводить ответ в стандартный вывод (иначе говоря, «на экран»). выводить лишние символы (исключая пробелы и переводы строк) недопустимо, то есть если вместо ответа будет выведен ответ и после него (или перед ним) какое-то лишнее число или строка, то система ответ не зачтёт. перед тем, как отправить написанную вами программу, не забудьте указать язык программирования, на котором она написана. выбор языка осуществляется с меню, расположенного сразу под этим текстом.
Я вот тоже Вышел порешать =).
var p: array [1..1000] of record
slovo:string;
k:integer;
end;
N,i,j,max:integer;
c:char;
a:array [97..122] of integer;
BEGIN
max:=0;
readln(N);
for i:=1 to N do
begin
p[i].slovo:='';
repeat
read(c);
p[i].slovo:=p[i].slovo+c
until c=' ';
readln(p[i].k);
for j:=1 to length(p[i].slovo) do
if (ord(p[i].slovo[j])>=97) and (ord(p[i].slovo[j])<=122) then
a[ord(p[i].slovo[j])]:=a[ord(p[i].slovo[j])]+p[i].k;
end;
for j:=97 to 122 do
if a[j]>max then
max:=a[j];
write(max);
end.