Uses crt;
Var a:array[1..100] of integer;
i,n,dem,S: integer;
Begin
Clrscr;
Repeat
Writeln('Nhap N ='); Readln(n);
Until n > 0;
For i:=1 to n do
Begin
Writeln('Nhap a[',i,'] = '); Readln(a[i]);
End;
dem:=0; S:=1;
For i:= 1 to n do If a[i] mod 2 <> 0 then
Begin
dem:=dem+1;
S:=a[i]*S;
End;
Writeln('Co ', dem,' so le ');
Writeln('Tich cua S=',S);
Readln;
End.
*Nhớ tick và chọn làm câu tr/l hay nhất giúp mình nhé! Đảm bảo đúng hết luôn :D Thanks so much :333
P/s: Không hiểu chỗ nào, comment giải đáp!
