`+` code:

program tong_le;
uses crt;
var n,i,tong: integer;
A:array[1..100] of integer;
begin
clrscr;
write('n=');read(n);
for i:=1 to n do
begin
write('A[',i,']=');read(A[i]);
end;
tong:=0;
for i:=1 to n do
if A[i] mod 2 <> 0 then
tong:=tong+A[i];
write('tong cac so le là:',tong);
read;
end.

`+` giải thích ví dụ

`-` ta thấy trong các số ta nhập có các số lẻ như `1,3,5`

`-` sau khi tìm đc những số lẻ lại, chương trình sẽ `+` chúng lại vs nhau: `1+3+5 = 9`

program tinh_tong;
uses crt;
var n, i, Sum: longint;
    a: array[1..100002] of longint;

begin
clrscr;

write('Nhap n = ');
readln(n);
write('Nhap cac phan tu: ');
for i := 1 to n do read(a[i]);

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

Writeln('Tong cac phan tu le = ', Sum);
readln;
end.

{

giải thích: nếu phần tử đó chia lấy dư cho 2 bằng 1 -> phần tử đó ko chẵn(lẻ).

}