HELP ME ! ai giúp mình giải bài này với

[Chickense]

Đề : Cho 1 chuỗi st . xuất ra (các) kí tự xuất hiện nhiều nhất trong chuỗi và số lần xuất hiện [IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG] (mình tìm đc r` nhưng xuất nó xuất các kí tự giống nhau :wacko[IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG]
--> Ai biết giúp mình nhé ! Mình sắp kiểm tra roài :emlaugh:

[thanhlydongden02]

Mình chưa hiểu rõ yêu cầu của bạn, không biết là MỘT kí tự nhiều nhất hay TẤT CẢ các kí tự theo thứ tự nhiều nhất => ít nhất. Nếu mình hiểu theo MỘT kí tự thì code như sau cho trực quan: ^^

var
    s:string;
    a:array[1..256] of char;
    n:longint;
function max(a,b,:longint;var i:longint;j:longint;):longint;
begin
        if a>b then exit(a) else 
                  begin i:=j;exit(b); end;
end;
procedure solve;
var i,j,t:longint;
begin 
        fillchar(a,sizeof(a),0);
        for i:=1 to length(s) do
             inc(a[ord(s[i])]);
        t:=a[i];
        i:=1;
        for j:=2 to 256 do
             t:=max(t,a[j],i,j);
        write(chr(I),':',a[i]);
end;
BEGIN
        readln(s);
        solve;
END.

[ngoc_loanhn]

tks

tks bạn nhé ! Mình cũng vừa tìm ra cách giải .... thêm nhìu cách cho phong phú [IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG]

[thanhtrang]

tks ba.n nhe' ! mi`nh cung~ vua` ti`m ra cac'h giai~ .... the^m nhiu` ca'ch cho phong phu' [IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG]

Viết bài có dấu bạn nhé. Mình chỉnh lại 1 lần, lần sau là del đấy.