Question

Viết chương trình nhập vào dãy số nguyên n phần tử, đếm có bao nhiêu số chẵn, số lẻ trong dãy

Answer 1

program dem;

var

      n, i, chan, le: integer;

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

begin

      write('Nhap so phan tu cua day: ');

      readln(n);

      for i := 1 to n do

      begin

            write('Nhap phan tu thu ', i, ': ');

            readln(a[i]);

      end;

      chan := 0;

      le := 0;

      for i := 1 to n do

      begin

            if (a[i] mod 2 = 0) then

                  chan := chan + 1

            else

                  le := le + 1;

      end;

      writeln('So phan tu chan trong day la: ', chan);

      writeln('So phan tu le trong day la: ', le);

end.