Question

viết chương trình nhập vào một dãy số dếm xem có bao nhiêu số chẵn, số lẻ tronh dãy số vừa nhập

Answer 1

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

i,n,dl,dc:integer;

Begin

Write('Nhap so luong so n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

If a[i] mod 2 = 0 then dc:=dc+1

Else dl:=dl+1;

End;

Writeln('Co ',dc,' so chan');

write('Co ',dl,' so le');

Readln

End.