Help pascal 11

[Khuongdajka3]

Các pan ho mình tý nha may paj này khó khung khjep .Mong nhan duoc su tro giup tu pro trong dien dan.
B1:cho so tu nhien n và xâu có dô dài n.Hay bien dôi xau dã cho bang cách thay doi:
a,thay doi tat cä các dâu ! bang dau cham .
b,thay doi 1 nhóm dau châm bang 1 dau cham.
c,thay doi các dau cham dung lìên nhau bang dau 3 cham ...
B2:nhap vao bam fim 1 xau.Tìm vitrí thû 'i' trong xau có chu cái 'aa' và dua ra vitrí dó còn không có thì thông báo không tìm thay.
B3:nhap vao bam fim 1 xau.Xoá các kí tu 'a' và dua kq ra 1 xau moi
B4:viet ct nhap vào 1 sô nguyen có n fan tu.Sap xep day so theo thu tu giam dan và tính giá tri trung bình cua day.
B5:viet ct nhap vào 1 chuoi ký tu ,sau dó nhap vào 1 ký tu bat kþ và dem so lan cua nó trong chuoi da nhap.
B6:cho mäng 2 chieu gom n hang va n cot .Tính tong bình phuong cá sô khong am tren cot le.
B7:nhap 2 xau tu ban fim kiem tra xem xau nào lon hon(khong phai do dai)thì xau do duoc in ra màn hình .
B8:viet ct nhap vào 1 chuoi ký tu ,hay in ra chuog dó theo thu tu nguoc låi.
B9:viet chuong trình nhap vào 1 chuoi ký tu ,dem so kí tu 'Trống' và kí tu 'a'(khong phan biet a hay A)có trong xau .Cho hien len màn hình ket qua cûa 2 phép dem này.
B10:nhap vao bam phím 1 xau.Xoá các dau cách lien nhau trong xau de xau khong còn 2 dau cách lìen nhau nûa.
B11:nhap vao bam fim 1 xau.Hay viet ct de xoá di các ký tu 'Trống ' ö 2 dau cua xau va in ra man hinh xau do.
RAT MONG DUOC SU GIUP DO CUA CAC ANH CHI PRO!

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

Thu 5 kt tren pc rui ai piet hd chi tiet dum m nha m cam on cac pan rat rat nhieu.

[Khuongdajka3]

Lìn bó khog dua nao jup

[nbni]

Mình mới tham gia diễn đàn nên trước đó không help bạn dc....
bài 3 nè bạn:
var
s:string;
i:integer;
begin
readln(s);
while i<=length(s) do
begin
if s[i]='a' then delete(s,i,1)
else inc(i);
write(s);
readln
end.

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

bài 4:
var
n,i,j,tam,tong:integer;
a:aray[1..100] of integer;
begin
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do
for j:=i+1 to n do
if a[i]<=a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
tong:=0;
for i:=1 to n do tong:=tong+a[i];
tbc:=tong/n;
for i:=1 to n do writeln(a[i]);
write(tbc:0:0);
readln
end.

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

bài 8:
var
s,s1:string;
i:integer;
begin
readln(s);
s1:='';
for i:=1 to length(s) do
s1:=s[i]+s1;
write(s1);
readln
end.

[huyensam123]

co ai co bai tap pascal về chương trình con cho Sâm với Thanhks

[hcvtpt]

chứ ít dấu quá, k thể đọc nổi