Program  Tenchuongtrinh;
Uses crt;
Type  km= array[1..100] of longint;
Var  A:km; n:longint;
{Nhập mảng}.
Procedure  Nhap;
  Var i:longint;
  Begin
    Write('Nhap so phan tu cua day n= '); readln(n);
    For i:=1 to n do
      begin
        write('A[',i,']= '); readln(A[i]);
      end;
  End;
{Tìm giá trị nhỏ nhất, lớn nhất}.
Function  max(d:km):longint;
  Var i,b:longint;
  Begin
    b:=D[1];
    For i:=2 to n do
      if  b<D[i] then b:=D[i];
    max:=b;
  End;
Function  min(c:km): longint;
  Var i,f:longint
  Begin
    f:=C[1];
    For i:=2 to n do
      if f>C[i] then f:=C[i];
    min:=f;
  End;
{Tính tổng trung bình của dãy}
Function  tb(j:km): real;
  Var i,tong:longint;
  Begin
    tong:=0;
    For i:=1 to n do
      tong:=tong+J[i];
    tb:=tong/n;
  End; 
{Tính tổng các số chẵn, số lẻ của dãy}
Procedure  chanle;
  Var i,chan,le:longint;
  Begin
    chan:=0;
    le:=0;
    For i:=1 to n do
      if (A[i] mod 2=0) then chan:=chan+A[i]
        else le:=le+A[i];
   if chan=0 then writeln('Khong co so chan nao trong mang')
     else writeln('Tong cac so chan la: ',chan);
   if le=0 then writeln('Khong co so le nao trong mang')
     else writeln('Tong cac so le la: ',le);
  End;

Procedure Xuatkq;
  Var i:longint;
  Begin
    Nhap;
    Writeln('Gia tri lon nhat cua mang la: ',max(A));
    Writeln('Gia tri nho nhat cua mang la: ',min(A));
    Writeln('Tong trung binh cua mang la: ',tb(A));
    Chanle;
{Chương trình chính}.
Begin
         Clrscr;
         Xuatkq;
         Readln;
End.