Информатика-3. Частотный словарьОграничение медли 1 секундаОграничение

Информатика-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'.

Решением к данной задачке является программа, написанная на одном из представленных в системе языков программирования. Программка обязана считывать данные со стандартного потока ввода (по другому говоря, с клавиатуры) и выводить ответ в стандартный вывод (по другому говоря, на экран).

Выводить излишние знаки (исключая пробелы и переводы строк) неприемлимо, то есть если заместо ответа будет выведен ответ и после него (либо перед ним) какое-то лишнее число или строчка, то система ответ не зачтёт.

Перед тем, как выслать написанную Вами программу, не пренебрегайте указать язык программирования, на котором она написана. Выбор языка исполняется с помощью выпадающего меню, размещенного сходу под этим текстом.

Задать свой вопрос
1 ответ

Я вот тоже Вышел порешать =).

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])gt;=97) and (ord(p[i].slovo[j])lt;=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]gt;max then

max:=a[j];

write(max);

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт