Question

cho mảng B gồm M phần tử B1,B2,...Bm là các số nguyên được nhập từ bàn phím(với M<=400). Hãy đếm và thông báo kết quả ra màn hình số lượng các số lẻ của mảng

giúp em với mn

Answer 1

Answer 2

uses crt;

var b:array[1..400]of integer;

i,m,dem:integer;

begin

clrscr;

write('Nhap m='); readln(m);

for i:=1 to m do 

  begin

write('B[',i,']='); readln(b[i]);

end;

dem:=0;

for i:=1 to m do 

 if b[i] mod 2<>0 then inc(dem);

writeln(dem);

readln;

end.