uses crt;

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

i,n,s1,s2: integer;

begin

clrscr;

write ('nhap so luong phan tu: ');  readln (n);

s1:=0;

s2:=0;

for i:=1 to n do

begin

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

if a[i] mod 2=0 then s1:=s1+a[i] else s2:=s2+a[i];

end;

writeln ('Tong chan: ',s1);

writeln ('Tong le: ',s2);

readln;

end.

Lời giải :

program hotrotinhoc ;

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

i,n,tong : integer;

begin

write('Nhap do dai cua day n:'); readln(n);

writeln('Nhap gia tri cua cac phan tu ');

for i:= 1 to n do

begin

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

end;

tong:=0;

for i:=1 to n do

if a[i] mod 2 <> 1 then tong:=tong+a[i];

write('Tong cac so chan la :',tong);

readln 

end.