uses crt;
var a:array[1..500]of integer;
    n,i,t,s,max,min,m,x,d:integer;
Begin
    clrscr;
    write('n = ');readln(n);
    s:=1;
    for i:=1 to n do
    begin 
        write('a[',i,'] = ');readln(a[i]);
        t:=t+a[i]; s:=s*a[i];
    end;
    writeln('a) tong = ',t);
    writeln('b) tich = ',s);
    writeln('c) tb = ',t/n:2:1);
    max:=a[1]; min:=a[1]; m:=a[1];
    for i:=1 to n do
    begin  
        if a[i]>max then max:=a[i];
        if a[i]<min then min:=a[i];
        if (a[i]<m) and (t/n<a[i]) then m:=a[i];
    end;
    writeln('d) max: ',max,', min: ',min);
    writeln('e) la: ',m);
    write('f) x = ');readln(x);
    for i:=1 to n do
    if a[i]<=x then d:=d+1;
    write('co ',d,' khong > ',x);
    readln
End.

uses crt;
var a:array[1..1000]of integer;
n,i,s,d,x,max,min1,min2:longint;
t:int64;
tb: real;
Begin
clrscr;
write('nhap so luong phan tu: ');readln(n);
t:=1;
for i:=1 to n do
begin 
write('nhap so thu ',i,': ');readln(a[i]);
s:=s+a[i]; t:=t*a[i];
end;
tb:=s/n; max:=a[1]; min1:=a[1]; min2:=a[1];
for i:=1 to n do
begin  
if a[i]>max then max:=a[i];
if a[i]<min1 then min1:=a[i];
if tb>=min2 then min2:=a[i];
end;
writeln('tong cac phan tu trong day la: ',s);
writeln('tich cac phan tu trong day la: ',t);
writeln('trung binh cac so vua nhap la: ',tb:3:1);
writeln('so lon nhat trong day la: ',max);
writeln('so be nhat trong day la: ',min1);
writeln('so be nhat trong day lon hon trung binh la: ',min2);
write('nhap X: ');readln(x);
for i:=1 to n do
if a[i]<=x then d:=d+1;
write('trong day co ',d,' phan tu khong lon hon ',x);
readln
End.