Câu này lm như nào ak Viết chương trình đếm các số chẵn trong dãy số nguyên A có N phần tử 10^3

0 bình luận về “Câu này lm như nào ak Viết chương trình đếm các số chẵn trong dãy số nguyên A có N phần tử 10^3”

1. program sochan;

   uses crt;

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

   i,n,dem:nteger;

   begin

   clrscr;

   writeln(‘nhap n = ‘);

   readln(n);

   for i:=1 to n do

   begin

   writeln(‘nhap phan tu thu ‘,i );

   readln(a[i];

   end;

   dem:=0;

   for i:=1 to n do

   if a[i] mod 2 = 0 then

   dem:=dem+1;

   writeln(‘ co so chan trong day la ‘,dem);

   readln

   end.

   Bình luận

2. program dem_chan;

   uses crt;

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

        n,i,d:integer;

   begin

          clrscr;

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

          d:=0;

          for i:=1 to n do

                 begin

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

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

                 end;

          write(‘Co ‘,d,’ so chan’);

          readln;

   end.

   Bình luận