cho dãy số nguyên n đc nhập từ bàn phím. hãy in ra màn hình xem có bao nhiêu số là số lẻ

Question

ngochoa · Answer

program day;

uses crt;

var A:array [1..500] of integer;

n,i,d: integer;

Begin

clrscr;

write(‘Nhap so phan tu: ‘); readln(n);

for i:=1 to n do

begin

write(‘A[‘,i,’]=’); readln(A[i]);

if A[i] mod 2<>0 then d:=d+1;

end;

write(‘Day vua nhap: ‘);

for i:=1 to n do write(A[i],’ ‘);

writeln;

write(‘Co ‘,d,’ so la so le’);

readln

End.

0 bình luận về “cho dãy số nguyên n đc nhập từ bàn phím. hãy in ra màn hình xem có bao nhiêu số là số lẻ”