.....................

uses crt;

var a:array[1..100] of integer; n,i,s,dem:integer;

begin clrscr;

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

for i:=1 to n do begin

write('Phan tu thu ',i,': ');readln(a[i]); end;

//tong cac phan tu cua day

for i:=1 to n do s:=s+a[i];

writeln('Tong cac phan tu cua day la: ',s);

//dem trong day co bao nhieu so chan

for i:=1 to n do if a[i] mod 2=0 then dem:=dem+1;

writeln('So chan co trong day la: ',dem);

readln end.

$#lenguyengiahan2009$