program ct;

uses crt;

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

      i,n,d:integer;

      S,T:longint;

begin clrscr;

   write('Nhap so phan tu: '); readln(n);

   for i:=1 to n do

     begin

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

     end;

     S:=0; T:=1;

   for i:=1 to n do

      if A[i] mod 2=1 then

        begin

           inc(d);

           S:=S+A[i];

           T:=T*A[i];

        end;

   writeln;

   writeln('Co ',d,' so le');

   writeln('Tong la: ',S);

   writeln('Tich la: ',T);

   if (S mod 2=1) and (T mod 2=1) then write('Du dieu kien')

                                                        else write('Khong du dieu kien');

readln;

end.

Học tốt!

program oken;
uses crt;
var a: array [1..100] of integer;
    i,n,dem,tong,tich: longint;
begin
    clrscr;
    write('Nhap so phan tu cua mang: '); readln(n);
    dem:=0; tong:=0; tich:=1;
    for i:=1 to n do
        begin
            write('A[',i,']: '); readln(a[i]);
            if (a[i] mod 2=1) then
                begin
                    dem:=dem+1;
                    tong:=tong+a[i];
                    tich:=tich*a[i];
                end;
        end;
    writeln('So le co trong day so: ',dem);
    writeln('Tong cac so le: ',tong);
    writeln('Tich cac so le: ',tich);
    if (tong mod 2=1) and (tich mod 2=1) then   
        writeln('DU DIEU KIEN')
    else
        writeln('KHONG DU DIEU KIEN');
    readln;
end.