* Không tách sang mảng vẫn tính số phần tử chẵn, lẻ được.
program bai_giai;
uses crt;
var A:array[1..10000] of integer;
n,i,j,k:integer;
begin
clrscr;
readln(n);
for i:=1 to n do read(A[i]);
j:=0; k:=0;
for i:=1 to n do
if A[i] mod 2=0 then j:=j+1
else k:=k+1;
writeln('Co ',j,' so chan');
writeln('Co ',k,' so le');
readln; readln;
end.
* Tách sang mảng chỉ in số phần tử
program bai_giai;
uses crt;
var A,b,c:array[1..10000] of integer;
n,i,j,k:integer;
begin
clrscr;
readln(n);
for i:=1 to n do read(A[i]);
j:=0; k:=0;
for i:=1 to n do
if A[i] mod 2=0 then
begin
j:=j+1; b[j]:=A[i];
end
else
begin
k:=k+1; c[k]:=A[i];
end;
writeln('Co ',j,' so chan');
writeln('Co ',k,' so le');
readln; readln;
end.
* In ra màn hình mảng b,c
program bai_giai;
uses crt;
var A,b,c:array[1..10000] of integer;
n,i,j,k:integer;
begin
clrscr;
readln(n);
for i:=1 to n do read(A[i]);
j:=0; k:=0;
for i:=1 to n do
if A[i] mod 2=0 then
begin
j:=j+1; b[j]:=A[i];
end
else
begin
k:=k+1; c[k]:=A[i];
end;
write('Mang so chan: ');
for i:=1 to j do write(b[i],' ');
writeln;
write('Mang so le: ');
for i:=1 to k do write(c[i],' ');
writeln;
writeln('Co ',j,' so chan');
writeln('Co ',k,' so le');
readln; readln;
end.
