Question

viết chương trình đếm xem có bao nhiêu số chẵn số lẻ của 1 mảng gồm nhiều phân tử nguyên

Answer 1

program DemSoChanLeTrongMang;

var

     A: array of Integer;

     n, i, demChan, demLe: Integer;

begin

     Write('Nhap so phan tu cua mang: ');

     Readln(n);

     SetLength(A, n);

     for i:= 0 to n-1 do

     begin

          Write('A[', i, ']= ');

          Readln(A[i]);

     end;

     demChan := 0;

     demLe := 0;

     for i:= 0 to n-1 do

     begin

          if A[i] mod 2 = 0 then

               demChan := demChan + 1

          else

               demLe := demLe + 1;

     end;

     Writeln('So luong so chan trong mang la: ', demChan);

     Writeln('So luong so le trong mang la: ', demLe);

end.