uses crt;

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

i, N, Tong, Tich : integer;

begin

clrscr;

Tong := 0; Tich := 1;

write('Nhap N = '); readln(N);

write('Nhap day gom ', N ,' so : ');

for i := 1 to N do

    begin

        read(A[i]);

        if A[i] mod 2 = 0 then Tong := Tong + A[i];

        if (A[i] mod 3 = 0) then Tich := Tich * A[i];

    end;

write('Mang vua nhap : ');

for i := 1 to N - 1 do write(A[i],'; ');

write(A[N]); writeln;

writeln('Tong cac so chan : ', Tong);

writeln('Tich cac so chia het cho 3 : ', Tich);

readln

end.

uses crt;

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

i,n,s,t: integer;

begin

clrscr;

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

t:=1;

s:=0;

for i:=1 to n do

begin

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

if a[i] mod 2=0 then s:=s+a[i];

if a[i] mod 3=0 then t:=t*a[i];

end;

write ('Mang vua nhap: ');

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

writeln (a[n]);

writeln ('Tong cac so chia het cho 2 la: ',s);

writeln ('Tich cac so chia het cho 3 la: ',t);

readln;

end.

$#Trumtinhoc$