Question

Viết chương trình nhập vào n số tư nhiên x và đếm xem có bao nhiêu giá trị x lẻ . Xuất kết quả ra màn hình.

Answer 1

uses crt;
var x,n,i,dem:integer;
begin
clrscr;
write('n='); readln(n);
dem:=0;
for i:=1 to n do
begin
write('x='); readln(x);
if x mod 2=1 then inc(dem);
end;
writeln('so gia tri x le la: ',dem);
readln;
end.