Строки Опции

[Hope]

Поможите чем можете!!!! Я попала в затруднительное положение :p2: Я не знаю как подступиться к задаче!!! А задача вот какая: Определить в строке букву чаще всего повторяющуюся! Пример: ааввввссс - результат в 4 раза. Но надо расмотреть и случай когда количество букв будет совпадать!!! Зарание спасибо за помощь!!! :thanks:

[volvo]

Но надо расмотреть и случай когда количество букв будет совпадать!!!

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

[Hope]

Пример при этой ситуации: ааааввсссс , результат: а,с 4 раза!!!!

[volvo]

Ну, и в чем проблема? Куда уже проще?

Код

const
 s: string = 'bbbbaacccc';

var
 counter: array[char] of byte;
 max: byte;

var i: integer;
begin
 max := 0;
 for i := 1 to length(s) do
   begin
     inc(counter[s[i]]);
     if max < counter[s[i]] then
       max := counter[s[i]]
   end;

 for i := 1 to 255 do
   if counter[chr(i)] = max then
     write(chr(i), ' ');
 writeln(max,  ' раз(а)...');
end.

[Hope]

Спасибки!!! не знаю как благодарить!!!!! =)