... Readln(a[i]); End; {sap xep day so} For i: =1 to n -1 For j:=i +1 to n If a[i]>a[j] then Begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end; Writeln('Day sau sap xep la:'); For i: =1 to n Write(a[i]:3); Readln; Writeln('Cac ... t,n,x,i,j,dem:integer; a:array [1 20] of integer; begin Writeln('SAP XEP DAY SO:'); Writeln(' -'); Write('Nhap so phan tu cua day n = '); Readln(n); For i: =1 to n begin Write('a[',i,']= ... For i: =1 to n Write(a[i]:4); Readln; {Tinh trung binh day} s:=0; For i: =1 to n s:=s+a[i]; Writeln('Gia tri trung binh la: ',s/n:6:2); Readln;...