Viết chương tình nhập từ bàn phím một xâu kí tự S và thông báo ra màn hình số lần xuất hiện của mỗi chữ cái tiêng Anh trong S (không phân biệt chữ hoa hay chữ thường). Đề này nhưng muốn thông báo ra màn hình số lần xuất hiện của tất cả các chữ cái từ a-z ra luôn thì phải làm sao ạ?? Mình đang cần gấp ạ mong các bạn giúp đỡ
uses crt; var s:string; a:array['A'..'Z'] of integer; ch:char; i:integer; begin clrscr; write('nhap chuoi: '); readln(s); for i:=1 to length(s) do s[i]:=upcase(s[i]); for ch:='A' to 'Z' do for i:=1 to length(s) do if s[i]=ch then inc(a[ch]); for ch:='A' to 'Z' do if a[ch]<>0 then writeln(a[ch],ch); readln; end. bn thử xem
uses crt; var s:string; a:array['A'..'Z'] of longint; x:char; i:longint; begin clrscr; readln(s); for i:=1 to length(s) do begin x:=upcase(s[i]); if x in['A'..'Z'] then a[x]:=a[x]+1; end; for x:='A' to 'Z' do if a[x]>0 then writeln(x,' ',a[x]); readln end.