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 ...
Đọc tiếp
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
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.