Program BTT;
Uses crt;
Var A: array[1..100] of integer;
    n,i,d: byte;
    s: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=0; d:=0;
        For i:=1 to n do
        Begin
                Write('Nhap A[',i,'] = '); Readln(A[i]);
                If abs(A[i])>=1000 then
                        Repeat
                                Write('Nhap sai! Yeu cau nhap lai A[',i,'] = ');
                                Readln(A[i]);
                        Until abs(A[i])<1000;
                If A[i] mod 2 = 1 then
                Begin
                        inc(d);
                        s:=s+A[i];
                End;
        End;

        Writeln('Co ',d,' phan tu le');
        Write('Tong cac phan tu le: ',s);
        Readln
End.

program hotboy; 

uses crt; 

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

le,s,i,n : Integer; 

begin

Clrscr;

s:=0; le:=0; 

write('nhap so nguyen duong n:'); 

Readln(n);

for i:= 1 to n do 

begin 

Write('A[',i,']');

readln(a[i]); 

end; 

for i:=1 to n do 

begin

If a[i] mod 2 = 1 then 

begin

le:=le+1 ; 

S:= S+a[i] ; 

end;

end; 

 Writeln('co so phan tu le la= ',le);

 Writeln('Tong so cacphan tu le la= ',s );

        Readln

End.