Uses Crt;
Var a:array[1..100] of longint;
n,i,S:int32;
Begin
Clrscr;
Writeln('Nhap n ptu vao:'); Readln(n);
For i:= 1 to n do
Begin
Writeln('Nhap a[',i,']='); Readln(a[i]);
End;
S:=0;
For i:= 1 to n do begin
Write(a[i],' ');
If a[i] mod 2=1 then S:=S+a[i];
End;
Writeln;
Writeln('Tong cac so le = ',S);
Readln
End.
*Nhớ tick và chọn làm câu trả lời hay nhất giúp mình nhé!Thanks trước :33
p/s chỉ cần thay mỗi If a[i] mod 2=0 thành  If a[i] mod 2=1 và sửa lại chữ "chẵn" thành "lẻ" là y hệt bài mình vừa giải lúc trước cho bạn :D

uses crt;

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

i,n,d,s: integer;

begin

clrscr;

write ('nhap n: ');  readln (n);

for i:=1 to n do

begin

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

if a[i] mod 2<>0 then begin d:=d+1; s:=s+a[i];  end;

end;

write ('day so vua nhap: '); 

for i:=1 to n do write (a[i],'  ');

writeln;

writeln ('trong mang co ',d,' so le va tong cua chung la: ',s);

readln;

end.