Viết chương trình đếm các số chẵn trong dãy số nguyên A có n phần tử (n<= 10^3). Giúp mình với ạ

0 bình luận về “Viết chương trình đếm các số chẵn trong dãy số nguyên A có n phần tử (n<= 10^3). Giúp mình với ạ”

1. Program bai1;

   Uses crt;

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

        n,d,i:integer;

   Begin

         write(‘Nhap n:’); 

         readln(n);

         d:=0;

         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(‘Co ‘,d, so chan’);

         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(‘A[‘,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