Question

Дан текст, состоящий из букв и цифр. найти наименьшую цифру.

Answer 1

Var
a:string;
i,n,j:integer;
buf:char;
begin   
readln(a);   
n:=length(a);     
    for i:=n downto 1 do         
         if (a[i]<'1')or(a[i]>'9') then           
             delete(a,i,1);    {удалила символы кроме цифр}        
     n:=length(a);   
   for i:=1 to n-1 do         
      for j:=i+1 to n do           
         if a[i]>a[j]then      {сортирую по возрастанию, на первом месте самая         
              begin              маленькая}          
                    buf:=a[i];                     
                    a[i]:=a[j];                     
                    a[j]:=buf;                 
               end;               
  writeln(a[1]);     {вывожу первую цифру}   
end.