[Help] Bài toán mảng kí tự và sắp xếp

[wlforever]

bài 1:
Viết chương trình nhập vào một dãy số nguyên.Tính trung bình cộng của dãy và in kết quả tính được ra màn hình.

bài 2:
Cho một mảng a gồm n số thực.hãy sắp xếp mảng theo chiều giảm dần và in kết quả lên màn hình.

Bài 3:Viết chương trình nhập vào 1 mảng kí tự, đếm mỗi loại kí tự có bao nhiêu lần xuất hiện?
Vd:AnhAnHaThanh
A:1 lần xuất hiện
a:1 lần xuất hiện
n:3 ...
h:1
H:1

[=========> Bổ sung bài viết <=========]

mọi người giúp mình với ngay đi! Mình sắp phải nộp rồi!

[cristianly]

Những bài này rất đơn giản, lần này tôi chỉ, do thời gian của bạn còn ích nhưng nộp xong nhớ phải tự học tập một cách nghiêm túc.

B1-2
var {khai báo biến}
begin
write('n=');readln(n);
s:=0;
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
s:=s+a[i];
write('Trung binh cong cua day la ',s/n:8:2);
{săp xếp giảm dần}
for i:=1 to n-1 do
begin
tam:=a[i];
for j:=i+1 to n do
if a[i]<a[j] then
begin
a[i]:=a[j];
a[j]:=tam;
tam:=[i];
end;
end;
for i:=1 to n do write(a[i]:4);
end.

B3.
Var {khai báo biến}
begin
{nhập mảng}
for i:=1 to n do
begin
kt:=true;
for j:=1 to i-1 do if a[j]=a[i] then kt:=false;
if kt then
begin
dem:=0;
for k:=1 to n do if a[i]=a[k] then inc(dem);
write(a[i],'xuat hien ',dem,' lan');
end;
end;
readln;
end.