uses crt;

var n,i,dem,chan,le:byte;

a:array[1..100] of word;

    tchan,tle:longint;

BEGIN

        clrscr;

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

        dem:=0;   chan:=0; le:=0;     tchan:=0; tle:=1;

        for i:=1 to n do

       begin

                write('Nhap a[',i,']:');

                readln(a[i]);

                if a[i]>10 then inc(dem);

                if a[i] mod 2 =0 then inc(chan)

                else inc(le);

                if (i mod 2=0) and (a[i] mod 2=1) then tchan:=tchan+a[i];

                if (i mod 2=1) and (a[i] mod 2=0) then tle:=tle*a[i];

        end;

        write('IN RA:');

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

        writeln;

        writeln('Co ',dem,' so >10');

        writeln('Tong cac so o vi tri chan co gia tri le:',tchan);

        writeln('Tich cac so o vi tri le co gia tri chan:',tle);

        write('Cac so le:');

        for i:=1 to n do

                if a[i] mod 2=1 then write(a[i],' ');

        writeln;

        write('Cac so chan >10:');

        for i:=1 to n do

                if (a[i] mod 2=0) and (a[i]>10) then write(a[i],' ');

        readln

END.

Chúc bạn học tốt!

uses crt;
var n,d,dl,tl,dc,sc,i:longint;
a:array[0..100000]of longint;
begin
        clrscr;
        read(n);
        d:=0; dc:=0; dl:=0; sc:=0; tl:=1;
        for i:=1 to n do
        begin
                read(a[i]);
                if (a[i]>10) then inc(d);
                if (a[i] mod 2=0) then inc(dc)
                else inc(dl);
                if ((i mod 2=0) and (a[i] mod 2<>0)) then begin
                        sc:=sc+a[i];
                end
                else if ((i mod 2<>0) and (a[i] mod 2=0)) then begin
                        tl:=tl*a[i];
                end;
                write(a[i],' ');
        end;
        writeln;
        writeln('b/ ',d);
        writeln('c/ ',dc,'; ',dl);
        writeln('d/ ',sc,'; ',tl);
        write('e/ ');
        for i:=1 to n do
                if (a[i] mod 2<>0) then write(a[i],' ');
        writeln;
        write('f/ ');
        for i:=1 to n do
                if (a[i] mod 2=0) and (a[i]>10) then write(a[i],' ');
        readln; readln;

end.