Question

Viết chương trình nhập mảng 1 số nguyên N từ bàn phím.In ra các phần tử có giá trị chẵn trên 1 hàng và các phần tử có giá trị lẻ trên 1 cột.

Giúp mik vs đc ko ạ .

Cảm ơn nhiềulắm ^-^

Answer 1

uses crt;

var a:array[1..100]of integer;

n,i:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

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

end;

writeln('Cac so chan la: ');

for i:=1 to n do

if a[i] mod 2=0 then write(a[i]:4);

writeln;

writeln('Cac so le la: ');

for i:=1 to n do

if a[i] mod 2<>0 then writeln(a[i]);

readln;

end.