program bai_giai;

uses crt;

var A:array[1..10000] of integer;

      n,i,t,dc,da,tl,dx,x,max,min:integer;

begin

       clrscr;

       write('Nhap so nguyen n: ');  readln(n);

       for i:=1 to n do

              begin

                     write('Nhap so thu ',i,': ');  readln(A[i]);

              end;

       t:=0; dc:=0; da:=0;  tl:=0;  max:=A[1];  min:=A[1];

       write('b. Mang vua nhap la: ');

       for i:=1 to n do

              begin

                     write(A[i],' ');

                     t:=t+A[i];

                     if A[i] mod 2=0 then dc:=dc+1 else tl:=tl+A[i];

                     if A[i]<0 then da:=da+1;

                     if A[i]>max then max:=A[i]

                            else if A[i]<min then min:=A[i];

              end;

       writeln;

       writeln('c. Tong cac phan tu cua mang la: ',t);

       writeln('   Trung binh cac phan tu cua mang la: ',t/n:0:3);

       writeln('d. So luong so chan la: ',dc);

       writeln('   So luong so am la: ',da);

       writeln('   Tong cac so le la: ',tl);

       writeln('Nhap x: ');   readln(x);

       dx:=0;

       for i:=1 to n do

              if A[i]<=x then dx:=dx+1;

       writeln('e. Trong day co ',d,' so khong lon hon x');

       writeln('f. Phan tu lon nhat la: ',max);

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

       readln;

end.

uses crt;
var a:array[1..1000] of longint;
i,n,s_chan,s_am,dem:word;
min,max,t,t_le,x:longint;
begin
    clrscr;
    write('nhap n= ');readln(n);
    writeln('*Nhap');
    for i:=1 to n do
        begin
            write('a[',i,']= ');
            readln(a[i]);
            t:=t+a[i];
            if a[i] mod 2 = 0 then inc(s_chan);
            if a[i] < 0 then inc(s_am);
            if a[i] mod 2 = 1 then t_le:=t_le+a[i];
        end;
    max:=a[1];min:=a[1];
    writeln('*In');
    for i:=1 to n do
       begin
           write('a[',i,']= ',a[i],' ');writeln;
           if max<a[i] then max:=a[i];
           if min>a[i] then min:=a[i];
       end;
    writeln('Tong= ',t);
    writeln('Trung binh= ',t/n:0:2);
    writeln('So so chan= ',s_chan);
    writeln('So so am= ',s_am);
    writeln('Tong cac so le= ',t_le);
    write('x= ');readln(x);
    for i:=1 to n do
       if a[i] <=x then inc(dem);
    writeln('So so khong lon hon ',x,' la: ',dem);
    writeln('Phan tu lon nhat: ',max);
    writeln('Phan tu nho nhat: ',min);
readln;
end.