Question

Viết chương trình nhập 10 số tự nhiên bất kì từ bàn phím rồi thống kê xem chúng có bao nhiêu số chẵn, bao nhiêu số lẻ. Thực hiện in ra màn hình các số chẵn và số lẻ đó.

VD: INPUT: 5,6,9,10,20,23,7,8,13,31.

OUTPUT: + co 6 so le

                + co 4 so chan

                 + cac so chan la: 6  10   20   8

                + cac so le la:  5   9   23   7   13   31

Answer 1

uses crt;

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

i,n,dem,dem1:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

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

end;

dem:=0;

dem1:=0;

for i:=1 to n do 

  begin

if a[i] mod 2=0 then 

begin

inc(dem);

b[dem]:=a[i];

end

else begin

ic(dem1);

c[dem1]:=a[i];

end;

end;

writeln('Co ',dem,' so chan');

writeln('Co ',dem1,' so le');

if dem>0 then 

begin

write('Cac so chan la: ');

for i:=1 to dem do 

  write(b[i]:4);

end;

if dem1>0 then 

  begin

write('Cac so le la: ');

for i:=1 to dem1 do 

  write(c[i]:4);

end;

readln;

end.