nhập dãy a gồm n số nguyên. đưa ra màn hình đếm số chẵn, số lẽ trong dãy A

0 bình luận về “nhập dãy a gồm n số nguyên. đưa ra màn hình đếm số chẵn, số lẽ trong dãy A”

1. program dem_so;

   uses crt;

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

        n,i,dc,dl:integer;

   begin

          clrscr;

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

          dc:=0; dl:=0;

          for i:=1 to n do

                 begin

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

                        if A[i] mod 2=0 then dc:=dc+1 else dl:=dl+1;

                 end;

          writeln(‘Co ‘,dc,’ so chan’);

          writeln(‘Co ‘,dl,’ so le’);

          readln;

   end.

   Bình luận

2. Uses crt;

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

        n,i,dc,dl:integer;

   begin

          clrscr;

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

          dc:=0; dl:=0;

          for i:=1 to n do

                 begin

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

                        if A[i] mod 2=0

                        then dc:=dc+1

                        else dl:=dl+1;

                 end;

          writeln(‘Co ‘,dc,’ so chan’);

          writeln(‘Co ‘,dl,’ so le’);

          readln

   end.

   Bình luận