uses crt;
var a:array[1..1000000] of longint;
       n,i,max,min,s,s1,s2:integer;
begin
       clrscr;
       write('Nhap so luong phan tu: '); readln(n);
       s:=0;s1:=0;s2:=0;
       for i:=1 to n do 
              begin
                     write('Nhap phan tu thu ',i,': '); readln(a[i]);
                     inc(s,a[i]);
                     if a[i] mod 2=0 then inc(s1,a[i]);
                     if a[i] mod 2=1 then inc(s2,a[i]);
              end;
       max:=a[1];min:=a[1];
       for i:=2 to n do 
              begin
                     if a[i]>max then max:=a[i];
                     if a[i]<min then min:=a[i];
              end;
       writeln('Max: ',max);
       writeln('Min: ',min);
       writeln('Trung binh: ',s/n:0:2);
       write('Tong so chan, so le: ',s1+s2);
       readln;
end.

Program Hello;

uses crt;

var min,max,t,tl,tc,i,n,x:longint;

      tbc:real;

begin

max:= low(longint);

min:= high(longint);

    readln(n);

    for i:= 1 to  n do

        begin

            read(x);

            if max < x then max:= x;

            if min > x then min:= x;

            t:= t + x;

            if x mod 2 = 0 then tl:= tl + x else tc:= tc + x;

        end;

     tbc:= t / n;

     writeln('Max: ', max);

     writeln('Min: ', min);

     writeln('TBC: ', tbc:2:2);

     writeln('Tong chan: ', tc);

     writeln('Tong le: ', tl);

readln;

readln;

end.