uses crt;
var n,i,s,max,min,tich,x,dem:integer;
    tb:real;
    A:array[1..100] of integer;
begin
        clrscr;
        write('Nhap n: '); readln(n);
        s:=0;
        tich:=1;
        tb:=0;
                for i:=1 to n do
                        begin
                                write('A[',i,']=');
                                readln(A[i]);
                                s:=s+A[i];
                                tich:=tich*A[i];
                        end;
        writeln('a) Tong cac so: ',s);
        writeln('b) Tich cac so: ',tich);
        tb:=s/n;
        writeln('c) Trung binh: ',tb:0:0);
        max:=A[1];
        min:=A[1];
                for i:=2 to n do
                        begin
                                if max<A[i] then max:=A[i];
                                if min>A[i] then min:=A[i];
                        end;
        writeln('d) So lon nhat: ',max);
        writeln('   So be nhat: ',min);
        write('e) So nho hon: ');
        min:=A[1];
        for i:=1 to n do
        begin
        if (min>A[i]) and (min>tb) and (min<max) then min:=A[i];
        end;
        write(min);
        writeln;
        write('f) Nhap x: '); readln(x);
        for i:=1 to n do
        if A[i]<X then dem:=dem+1;
        write('Co ',dem,' nho hon ',x ,' co trong day. ');
        readln
end.