program nghia;
uses crt;
var A: array[1..500] of integer;
i, e: integer;
begin
clrscr;
write('Nhap e = '); readln(n);
for i:=1 to e do
begin
write('A[', i, '] = '); readln(A[i]);
end;
write('Mang chua so chan: ');
for i:=1 to e do if A[i] mod 2 = 0 then write(A[i]:3);
write('Mang chua so le: ');
for i:=1 to e do if A[i] mod 2 = 1 then write(A[i]:3);
readln
end.
Xin hay nhất
Nhận giải mọi bài tập
Ai muốn vào nhóm mk ko
Try to study well for the future