Question

Cho dãy số nguyên A có n phần tử. Hãy lập chương trình

a) In ra các số chẵn có trong dãy số A

b) In ra số các số nguyên lẻ có trong dãy số A

Giúp mik vs mấy you

Answer 1

Program Nguyen_tu;

Uses crt;

Var a: integer;

Begin

Clrscr;

Write('nhap cac so nguyen:');

Readln(a);

if a mod 2 = 0 then write('cac so chan la:',a);

else write ('cac so le la:',a);

Readln;

End.