(Turbo Pascal)Составить программу, выводящую сочетание из двух букв...

[Swetic]

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

[Stilet]

Ну в чем проблема? Обьявляешь массив array['a'..'z'] of integer;
Далее по строке в цикле увеличиваешь клетку массива, индекс которого указывает на текущую букву в строке, и после ищещь максимум в этом массиве.
Вот пример: http://www.programmersforum.ru/showthread.php?t=46912

[Swetic]

Была бы благодарна,если бы написали чуть подробнее!

[Stilet]

Дык я написал бы тоже самое что в приведенной ссылке.

[Swetic]

Хорошо,спасибо за помощь!

[Serge_Bliznykov]

не определено, что считать буквой, так же непонятно, что делать с пробелами..
поэтому, в первом приближении решение может выглядеть так:

const
  Letters = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz'+
            'АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ'+
            'абвгдежзийклмнопрстуфхцчшщъыьэюя';


var
 cnt : array[1..Length(Letters),1..Length(Letters)] of byte;
 s : string;
 i,j,k, iMax, jMax : integer;
begin
 WriteLn('Введите строку: ');
 Readln(s);
 for i:=1 to Length(Letters) do
   for j:=1 to Length(Letters) do
     cnt[i,j] := 0;

 k := 1;
 while k<Length(s) do begin
   i := Pos(s[k], Letters);
   j := Pos(s[k+1], Letters);
   if (i>0) and (j>0) then inc(cnt[i,j]);
   inc(k,2);
 end;

 {поиск максимальной величины}
 iMax := 1; jMax := 1;
 for i:=1 to Length(Letters) do
   for j:=1 to Length(Letters) do
     if cnt[i,j]>cnt[iMax, jMax] then begin
          iMax := i; 
          jMax := j;
     end;

 {вывод результата, если он не нулевой}
 if cnt[ iMax, jMax ] = 0 then 
   WriteLn('Парных букв в строке вообще не найдено!')
 else 
   begin
     WriteLn('Словосочетание ',
        Copy(Letters,iMax,1),Copy(Letters,jMax,1),
        ' встречается ', cnt[ iMax, jMax ] , ' раз.')
   end;

 Readln;

end.

[Swetic]

Спасибо за помощь!