Program Hotboy ;
Uses crt;
Var a:array[1..100] of integer ;
S: longint ;
i,n : byte;
Begin
Clrscr ;
S:=0;
Writeln('nhap so phan tu');
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];
Writeln('Tong cac so le la ',S);
Readln
End.