регулярные типы. Опции

[ducky]

условие - Дан непустой текст из цифр, за которым следует точка. Напечатать цифру, наиболее часто встречающуюся в этом тексте (если таких цифр несколько, напечатать любую из них).

мысли такие..может кто-то поправит пожалуйста?))

program V_20;
var a:array [1..100] of char;
    k,i,j,m,p,n:integer;

begin
 writeln ('vvedite text iz cifr. po oknchaniju vvoda nazmite tochku');
 k:=0;

 repeat
 readln (a[i]);
 k:=k+1;
 until a[i]<>'.';

 m:=1;
 p:=1;
 for i:=1 to k do

 begin
 n:=0;
  for j:=1 to k do

   begin
    if a[i]=a[j] then n:=n+1;
   end;

  if n>m then
   begin
    m:=n;
    p:=i;
   end;

  end;

  writeln ( ' naibolee chasto vstrechajushiesja chislo:', a[p] );
  readln;

  end.

[ducky]

тогда я наверное совсем тупая))

[-Lapp-]

тогда я наверное совсем тупая))

Я, наверное, тоже..
Никак не могу понять, как ни вчитываюсь в твои слова, что же именно тебе неясно? Ты говори яснее!
Смотри, у нас есть массив частот каждой буквы f. Тебе надо найти в нем максимум.
Добавь еще одну переменную символьного типа:

  m: char;

Потом добавь некий код в самом низу.
Сначала предположим, что больше всего - нулей:

m:= '0';

А потом пройдем по всем остальным и сравним:

  for c:='1' to '9' do if f[c]>f[m] then m:=c;

После этого в переменной m будет лежать та цифра, которая встречается больше других..

  WriteLn('The most frequent digit is ',m);

Так или не так?