2.program bai_tap; type mang = array[1..1000] of integer; var a:mang; i,j,n:integer; begin writeln('nhap n:'); readln(n); i:=1;j:=0; while i <= n do begin write('nhap so thu ',i,': '); readln(a[i]); if a[i] mod 2 = 0 then j:=j+a[i]; inc(i); end; write(j); readln end.
