Cho n số nguyên và dãy a1 đến an đếm xem có bao nhiêu số chẵn

0 bình luận về “Cho n số nguyên và dãy a1 đến an đếm xem có bao nhiêu số chẵn”

1. Có 1 số chăn

   Bình luận

2. program DEMSOCHAN;

   uses crt;

   var a:array[1..1000] of integer;

   i,n,m:integer;

   begin

   clrscr;

   m:=0;

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

   for i:=1 to n do

   begin

   write(‘Nhap so thu ‘,i,’ :’); readln(a[i]);

   if a[i] mod 2 = 0 then m:=m+1;

   end;

   writeln(‘Co ‘,m,’ so chan trong day’);

   readln;

   end.

   Bình luận