Program Day_So_Giam_Dan;
Uses Crt;
Var s,n,i,j,t:integer;
a:array[1..20] of integer;

Begin
Clrscr;
Writeln(‘SAP XEP DAY SO:’);
Write(‘Nhap so phan tu cua day n = ‘); Readln(n); For i:=1 to n do
Begin

Write(‘a[‘,i,’]= ‘);
Readln(a[i]);
End;
For i:=1 to n-1 do
For j:=i+1 to n do
If a[i]<a[j] then
Begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;

End;
Writeln(' Day sau khi sap xep giam dan la:'); For i:=1 to n do
Write(a[i]:4); Readln;
s:=0;
For i:=1 to n do s:=s+a[i];
Writeln('Gia tri trung binh la: ',s/n:6:2);

Readln;

End.

em thấy nhiều lắm. 

*Các đề nghị cải cách ở Việt Nam cuối thế kỉ XIX không thực hiện được vì:
- Các đề nghị cải cách vẫn mang tính chất lẻ tẻ, rời rạc, chưa xuất phát từ những cơ sở bên trong, chưa động chạm tới những vấn đề cơ bản của thời đại : Giải quyết hai mâu thuẫn chủ yếu của xã hội Việt Nam là mâu thuẫn giữa nhân dân ta với thực dân Pháp xâm lược và giữa công dân với thuộc địa phong kiến
- Triều đình phong kiến bảo thủ,bất lực trong việc thích ứng với hoàn cảnh nên đã không chấp nhận những thay đổi và từ chối mọi đề nghị cải cách.

*