Cho dãy số a1,…an Tính tích các số lẻ Tính tổng các số chẵn

Tính tích các số lẻ

program bai_giai;
uses crt;
var n,i,s:longint;a:array[1..1000]of longint;
begin
 clrscr;
  write('n=');readln(n);
  s:=1;
  for i:=1 to n do
        begin
         write('a[',i,']=');readln(a[i]);
         if(a[i] mod 2=1)then s:=s*a[i];
        end;
  write('tich cac so le trong day la:',s);
 readln;
end.

Tính tổng các số chẵn

program bai_giai;
uses crt;
var n,i,s:longint;a:array[1..1000]of longint;
begin
 clrscr;
  write('n=');readln(n);
  s:=0;
  for i:=1 to n do
        begin
         write('a[',i,']=');readln(a[i]);
         if(a[i] mod 2=0)then s:=s+a[i];
        end;
  write('tong cac so chan trong day la:',s);
 readln;
end.