C1:
Uses Crt;
Var a:array[1..1000] of integer;
 i,s,n:integer; tbc:real;
Begin
Write('Nhap ptu n vao: '); Readln(n);
For i:=1 to n do
Begin
Write('Nhap a[',i,']= '); Readln(a[i]);
End;
s:=0;
Write('Trung binh cong cua day so do la: ');
For i:=1 to n do S:=S+a[i];
Write(s/n:4:2);
Readln
End.
C2:
Uses Crt;
Var a:array[1..500] of integer;
i,n,j,t,max,td:longint;
Begin
Clrscr;
Write('Nhap so ptu n vao: '); Readln(n);
For i:=1 to n do
Begin
Write('Nhap 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 so sau khi sap xep tang dan la:');
For i:=1 to n do
Write(a[i]:4);
max:=a[1];
For i:=2 to n do
If max<a[i] then max:=a[i];
Writeln;
Write('So lon nhat trong day do la: ',max);
Readln
End.
*Nhớ tick và chọn làm câu trả lời hay nhất giúp mình với nhé! Thanks so much :D
*p/s: Hỏi và đáp,comment bên dưới!

Câu 1:

uses crt;
var i,n:longint; s:real; a:array[1..100000]of real;
begin 
clrscr;
   write('Nhap n: ');readln(n);
   for i:=1 to n do 
      begin
         write('Nhap so thuc thu ',i,': ');readln(a[i]); 
         s:=s+a[i]; 
      end;
   writeln(s/n:0:3);
readln
end.

Câu 2:

uses crt;
var i,j,n,t:longint; a:array[1..100000]of longint;
begin 
clrscr;
   write('Nhap n: ');readln(n);
   for i:=1 to n do 
      begin
         write('Nhap so nguyen thu ',i,': ');readln(a[i]); 
         for j:=i downto 1 do 
            if a[i]<a[j] then 
               begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end;
      end;
   for i:=1 to n do write(a[i],' '); writeln;
   writeln(a[n]);
readln
end.