Question

Viết chương trình nhập vào 1 mảng D có n phần tử ( n nhỏ hơn hoặc bằng 20 ) . Đếm số phần tử lẻ trong mảng D

Answer 1

Program HOC24;

var i,n,dem: byte;

d: array[1..20] of integer;

begin

write('Nhap n: '); readln(n);

for i:=1 to n do 

begin

write('D[',i,']='); readln(d[i]);

end;

dem:=0;

for i:=1 to n do if d[i] mod 2<>0 then dem:=dem+1;

write('Co ',d,' phan tu le trong mang');

readln

end.