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

[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]

 program V_8_20;
var s:string;
    i:integer;
    c,m:char;

const f:array ['0'..'9'] of integer = (0,0,0,0,0,0,0,0,0,0);

begin
 writeln ('vvedite');

  repeat
   readln (s);
   for i:=1 to length (s) do
   if s[i] in ['0'..'9'] then inc(f[s[i]])
  until pos ('.',s)>0;

  for c:='0' to '9' do writeln (c,': ',f[c]);
  readln;

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

  writeln('naibolee chasto vstrechajushijsja element ',m);
  readln;

  end.

юпииии! спасибо)


это будет сильной наглостью просить еще одну мою "халтуру" глянуть?

[Lapp]

  writeln('naibolee chasto vstrechajushijsja element ',m)

;

Только в тексте не элементы - там буквы, цифры.. А то дойдет до того, что книгу будешь батареей называть )).

юпииии! спасибо)

You DID it!!

это будет сильной наглостью просить еще одну мою "халтуру" глянуть?

Задавая вопросы, ты поддерживаешь жизнь на -Мар..- тьфу, на Форуме! Спаси маленького зеленого форумчанина - создай новую тему! (они ими питаются))
Только с хорошим информативным названием.. (остальные для них ядовитые..)))