Program HOC24;

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

t1,t: longint;

a: array[1..32000] of integer;

begin

readln(n);

for i:=1 to n do read(a[i]);

readln;

t:=0; t1:=0; max:=0; min:=32000; d:=0;

for i:=1 to n do

begin

if a[i]<0 then t:=t+a[i];

if a[i] mod 2=0 then

begin

t1:=t1+a[i];

d:=d+1;

end;

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

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

end;

for i:=1 to n do

for j:=i to n do

if a[i]>a[j] then

begin

tg:=a[i];

a[i]:=a[j];

a[j]:=tg;

end;

writeln('Tong cac so am cua day la : ',t);

writeln('Tong cac so chan la : ',t1,'; Trung binh cong cua no la : ',t1/d:2:2);

writeln('Phan tu co gia tri *** nhat la : ',max);

writeln('Phan tu co gia tri nho nhat la : ',min);

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

readln

end.