Viết công thức nhập vào một dãy số rồi đếm trong dãy có bao nhiêu số chẵn và in ra màn hình

0 bình luận về “Viết công thức nhập vào một dãy số rồi đếm trong dãy có bao nhiêu số chẵn và in ra màn hình”

1. program so_chan;

   uses crt;

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

         n,i,d:byte;

   begin

        clrscr;

        write(‘Nhap so luong phan tu cua day: ‘);  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(‘Trong day co ‘,d,’ so chan’);

        readln;

   end.

   Bình luận