Program tong_le;
Var A:array[1..100] of integer;
i,n,S:integer;
Begin
FOr i:=1 to n do
Begin
Writeln('A[',i']=');Reafln(A[i]);
End;
Write('Tong cac so le la: ');
For i:=1 to n do If A[i] mod 2<>0 then S:=S+A[i];
Write(A[i]);
Readln;
End.
Chúc bạn học tốt nhé