Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Thuy Ngan
Viết chương trình Pascal nhập N số nguyên (n<=100)Hiện dãy số vừa nhậpĐếm các số chẵn, lẻ
datcoder
24 tháng 12 2023 lúc 12:46

Program HOC24;

var i,n,l,c: byte;

a: array[1..100] of integer;

begin

write('Nhap N: '); readln(n);

for i:=1 to n do 

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

write('Day vua nhap la: ');

for i:=1 to n do write(a[i],' ');

writeln;

c:=0; l:=0;

for i:=1 to n do 

if a[i] mod 2=0 then c=c+1 else l=l+1;

writeln('Day co ',c,' so chan');

writeln('Day co ',l,' so le');

readln

end.


Các câu hỏi tương tự
Thuy Ngan
Xem chi tiết
vy tường
Xem chi tiết
Bùi Minh Dũng
Xem chi tiết
Mai Phương Lê
Xem chi tiết
Bùi Minh Dũng
Xem chi tiết
Phúc Trí Nguyễn Lê
Xem chi tiết
Nguyễn Văn Hậu
Xem chi tiết
Phan
Xem chi tiết
Trần Hà Thư
Xem chi tiết