uses  crt;
var   i,n:integer;
       s:longint;
a: array [1..100] of integer;
begin
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 s:=s + a[i];
write('tong cua cac so le trong day la=',s);<br />readln<br />end.<br />***<br />chú ý:<br />câu lệnh: write('nhap n:') có nghĩa là nhập độ dài của mảng
ngoài ra các bạn có thể thay câu lệnh:
if a[i] mod 2 <>0 then s:= s + a[i];
thành
if a[i] mod 2 =1 then s:=s+ a[i];