Narrow Default Wide
Blue Colour Green Colour Orange Colour Red Colour


356 средняя
общеобразовательная школа

Поиск частоты повторений англ. символов в строке вариант2


В строке определяется количество повторений каждого символа английских символов малого регистра a..z. Выводятся затем в порядке убывания символы и частоты повторения, начиная с максимального значения

var
  Ch, ns: Char;
  Sc, Si: String;
  I, K, J, max: Integer;
  Ar: array['a'..'z'] of integer;

begin
  for ch := 'a' to 'z' do 
    Ar[ch] := 0;
  Sc := ' ';
  Write('введите строку  ', si);
  read(si);
  
  for J := 1 to length(Si) do
  begin
    Ch := Si[J];
    if ch in ['a'..'z'] 
    then
    begin
      Sc := Sc + Ch; 
      Ar[ch] := Ar[ch] + 1; 
    end;
  end;
  I := 0;
  ch := 'a';
  for i := 1 to 10 do
  begin
    {ar[ch] := 0;}
    max := ar['a'];
    for ns := 'a' to 'z' do
      if max < ar[ns]
      then 
      begin
        max := ar[ns];
        ch := ns;
      end;
    Writeln(max, '-', ch);
    ar[ch] := 0;
  end;
end.