Bài 7. Câu lênh lặp

hello sun

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

Nguyễn Lê Phước Thịnh
27 tháng 1 2021 lúc 13:19

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.

Bình luận (0)

Các câu hỏi tương tự
Phan Thị Ka
Xem chi tiết
Minh Ngọc
Xem chi tiết
Mai thị tố uyên
Xem chi tiết
Maiiii
Xem chi tiết
khánh băng
Xem chi tiết
Thu Anh
Xem chi tiết
Huy Nguyễn
Xem chi tiết
Nguyễn Đoàn Trường Sơn
Xem chi tiết
DinoDrang
Xem chi tiết