Heeeeeeeeeeeeeeeelllp meeeeeeeeeeeee?????

[Me gusta]

Преобразовать использовав предыдущий алгоритм, таким образом, чтобы в результате работы программы была выведена буква, которая встречается чаще всех.
предыдущая программа:
Program xxx;
var S,i:string;
e,k,g:integer;
begin
writeln ('введите строку');
read (s);
g:length (S);
for e:='а' to 'я' do
begin
k:=0;
for i:=1 to g do
if S[i]=e then
k:=k+1;
writeln (e,'-',k);
end;
end.

[Mad_Cat]

Program xxx;
var S:string;
i,k,g:integer;
e,c:char;max:integer;
begin
writeln ('введите строку');
read (s);max:=0;c:='\';
g:=length (S);
for e:='а' to 'я' do
begin
k:=0;
for i:=1 to g do
if S[i]=e then
k:=k+1;
if k>max then begin max:=k;c:=e; end;
end;
Writeln(c);
end.

[Me gusta]

почему программа при любом вводе предложения выдает букву "я"?

[Mad_Cat]

почему программа при любом вводе предложения выдает букву "я"?

Прошу покорнейше меня простить, ибо малость поторопился, но сейчас поправил и код должен работать верно!

[Me gusta]

Спасибо большое)
помогли очень)
премного благодарна!!!! )

[Sciv]

Heeeeeeeeeeeeeeeelllp meeeeeeeeeeeee?????

Что за вопли дикого ёлупня? Почему в конце вопрос?
И вообще это вроде как нарушение правил форума...