SaveText.Ru

инфа 9Д 11
  1. const
  2.   N = 100;
  3. //--------------------------------------------------------------------------------
  4. type
  5.   Tmas = array[1..N] of string;
  6.  
  7. var
  8. m:tmas;
  9. i,kol,otv,otv_min,i_min:longint;
  10. slovo,bukva,etalon:string;
  11.  
  12.  
  13. begin
  14. etalon:='13579';
  15. otv:=0;
  16. otv_min:=100;
  17.  
  18.  
  19. readln(kol);
  20. for i:=1 to kol do
  21.   readln(m[i]);
  22.  
  23. for i:=1 to kol do
  24. begin
  25.   slovo:=m[i];
  26.   while slovo<>'' do
  27.   begin
  28.     bukva:=copy(slovo,1,1);
  29.     delete(slovo,1,1);
  30.     if pos(bukva,etalon)<>0 then
  31.       otv:=otv+1;
  32.   end;
  33.   if otv<=otv_min then
  34.   begin
  35.     otv_min:=otv;
  36.     i_min:=i;
  37.   end;
  38.   otv:=0;
  39. end;  
  40.  
  41.  
  42. write(m[i_min]);
  43. end.

Share with your friends:

Print