

Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
uses crt;
var S:ansistring;
A:array['a'..'z'] of word;
i:word;
ch:char;
begin
write('Nhap S=');readln(S);
for i:=1 to length(S) do inc(A[S[i]]);
for ch:='a' to 'z' do write(A[ch],' ');
readln
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin