Question

Nhập 1 dãy số gồm n phần tử. Viết chương trình và in ra :a)những phần tử có giá trị lẻ trong mảnggg. b) những phần tử có giá trị chẵn trong mảng . Mong mng giúp mk

Answer 1

Program HOC24;

var i,n: integer;

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

begin

write('Nhap N:'); readln(n);

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

//----- cau a

write('Cac phan tu co gia tri le la: ');

for i:=1 to n do if a[i] mod 2=1 then write(a[i],' ');

//--------------

writeln;

//------cau b

write('Cac phan tu co gia tri chan la: ');

for i:=1 to n do if a[i] mod 2=0 then write(a[i],' ');

//------------

readln

end.