program oken;

uses crt;

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

     i,n,dem,sum:longint;

begin

clrscr;

write('nhap so phan tu cua mang: '); readln(n);

dem:=0; sum:=0;

for i:=1 to n do

   begin

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

     if (a[i] mod 2 = 1) and (a[i]<45) then

               begin

                   dem:=dem+1;

                   sum:=sum+a[i];

                end;

   end;

writeln('trong mang co ',dem,' phan tu le(<45) va tong=',tong);

readln;

end.

Program BTH;
uses crt;
var a:array[1..100000] of longint;
n,i,dem,s:longint;
Begin
        clrscr;
        write('Nhap n: ');readln(n);
        For i:=1 to n do
        Begin
                write('a[',i,']: ');readln(a[i]);
                If (a[i] mod 2=1) and (a[i]<45) then
                Begin
                        s:=s+a[i];
                        dem:=dem+1;
                end;
        end;
        writeln('So luong so le va nho hon 45 co trong day la: ',dem);
        writeln('Tong so le va nho hon 45 co trong day la: ',s);
        readln;
end.