4. Cho dãy A gồm N số nguyên a1, a2,..., aN. Hãy tính tích các số chẵn trong dãy.

uses crt;

var n, i: integer;

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

begin

clrscr;

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

               for i:=1 to n do begin

                        write('a[',i,']='); readln(a[i]);

                                           end;

             for i:=1 to n do 

               if (a[i] mod 2=0) then write(a[i]:3);

readln;

end.

TT:

B1: Nhập N và dãy a1,a2,...aN

B2: i←1, S=1;

B3: Nếu i > N đưa ra giá trị S rồi kết thúc

B4: Nếu i<N thì 

 B4.1: Nếu a[i] chia hết cho 2 thì S=S x a[i]

 B4.2: i←i+1

B5: Quay lại bước 3

CODE: ( SỬ SỤNG C++)

#include < bits/stdc++.h>

using namescape std;

int n,i,s;

int main()

{ 

 for (i=1;i<=n;i++)

   cin>>a[i];

s=1;

for (i=1;i<=n;i++)

  if (a[i] % 2 == 0)

     s=s*a[i]

cout << s;

}