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.