program sksk;

uses crt;

var a : array[1..100] of integer;

      i, n, s1, s2 : integer;

begin

clrscr;

s1 := 1;

s2 := 1;

write('nhap so phan tu co trong mang :');readln(n);

for i := 1 to n do

begin

write('nhap phan tu thu ', i ,' : ');readln(a[i]);

if (a[i] <> 0) and (a[i] mod 2 = 0) then s1 := s1 * a[i];

if (a[i] <> 0) and (a[i] mod 2 <> 0) then s2 := s2 * a[i];

end;

writeln('tich cac so chan co trong mang la :', s1);

writeln('tich cac so le co trong mang la :', s2);
readln

end.

program bai_giai;
uses crt;
var n,i,sc,sl:longint;a:array[1..1000]of longint;
begin
 clrscr;
  write('n=');readln(n);
  sc:=1;
  sl:=1;
  for i:=1 to n do
        begin
         write('a[',i,']=');readln(a[i]);
         if(a[i]<>0)then
                begin
                 if(a[i] mod 2=0)then sc:=sc*a[i]else sl:=sl*a[i];
                end;
        end;
  writeln('tich cac chu so chan, khac 0 trong day so tren la:',sc);
  writeln('tich cac chu so le, khac 0 trong day so tren la:',sl);
 readln
end.