a) Tổng các ptu trong mảng:
Uses Crt;
Var a:array[1..1000] of integer;;
i,n,S:integer;
Begin
Clrscr;
Write('Nhap so ptu N= '); Readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu a[',i,']: '); Readln(a[i]);
End;
For i:= 1 to n do  S:=S+a[i];
End;
Writeln(' Tong cua cac ptu tren day so la: ',S);
Readln
End.
b) TBC của các phần tử trong mảng:
Uses Crt;
Var a:array[1..1000] of real;
i,n,dem,S:integer; TBC:real;
Begin
Clrscr;
Write('Nhap so ptu N= '); Readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu a[',i,']: '); Readln(a[i]);
End;
For i:= 1 to n do
Begin
dem:=dem+1;
S:=S+a[i];
End;
TBC:=S/dem;
Writeln(' TBC cua cac ptu tren day so la: ',TBC);
Readln
End.
c) Tìm ptu lớn nhất trong mảng: 
Uses Crt;
Var a:array[1..1000] of integer;
i,n,max:integer;
Begin
Clrscr;
Write('Nhap so ptu N= '); Readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu a[',i,']: '); Readln(a[i]);
End;
max:=a[1];
For i:= 2 to n do If max>a[i] then max:=a[i];
Writeln(' So lon nhat trong day tren la: ',max);
Readln
End.

d) Tìm ptu nhỏ nhất trong mảng: 
Uses Crt;
Var a:array[1..1000] of integer;
i,n,min:integer;
Begin
Clrscr;
Write('Nhap so ptu N= '); Readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu a[',i,']: '); Readln(a[i]);
End;
min:=a[1];
For i:= 2 to n do If min>a[i] then min:=a[i];
Writeln(' So nho nhat trong day tren la: ',min);
Readln
End.

e) Sắp xếp các ptu trong mảng theo thứ tự tăng dần:
Uses Crt;
Var a:array[1..1000] of integer;
i,n,j,tg:integer;
Begin
Clrscr;
Write('Nhap so ptu N= '); Readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu 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
tg:=A[i];
A[i]:=A[j];
A[j]:=tg;
End;
Writeln;
Writeln(' Day so sau khi sap xep theo thu tu tang dan la: ');
For i:= 1 to n do Write(a[i]:5);
Readln
End.
f) Đếm các phần tử chẵn trong mảng:
TBC của các phần tử trong mảng:
Uses Crt;
Var a:array[1..1000] of integer;
i,n,dem:integer;
Begin
Clrscr;
Write('Nhap so ptu N= '); Readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu a[',i,']: '); Readln(a[i]);
End;
For i:= 1 to n do If a[i] mod 2 = 0 then dem:=dem+1;
Writeln(' Co ',dem,' so chan trong day so tren');
Readln
End.
*Nhớ tick và chọn làm câu trả lời hay nhất giúp mình với nhé! Thank kiu C:

program Mang_tong_hop;

uses crt;

var A:array [1..500] of integer;

      n,i,T,max,min,j,tg,d: integer;

Begin

         clrscr;

         write('Nhap so phan tu: '); readln(n);

         max:=1; min:=1;

         for i:=1 to n do

         begin

                  write('A[',i,']='); readln(A[i]);

                  T:=T+A[i];

                  if max<A[i] then max:=A[i];

                  if min>A[i] then min:=A[i];

                  if A[i] mod 2=0 then d:=d+1;

         end;

         writeln('a) Tong cac phan tu trong mang = ',T);

         writeln('b) TBC cac phan tu trong mang = ',T/n:2:1);

         writeln('c) Phan tu lon nhat: ',max);

         writeln('d) Phan tu nho nhat: ',min);

         for i:=1 to n -1 do

              for j:= i+1 to n do

                   if A[i]>A[j] then

                   begin

                            tg:=A[i];

                            A[i]:=A[j];

                            A[j]:=tg;

                   end;

         write('e) Mang sau khi sap xep tang dan: ');

         for i:=1 to n do write(A[i],'  ');

         writeln;

         write('f) Co ',d,' phan tu chan trong mang');

         readln

End.