Lập trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
nattly

Viết chương trình nhập vào 1 dãy số nguyên và một số nguyên X . Đếm xem trong dãy số có bao nhiêu số nguyên , không lớn hơn X

Nguyễn Lê Phước Thịnh
22 tháng 6 2020 lúc 8:52

uses crt;

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

n,i,x,dem:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

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

dem:=0;

for i:=1 to n do

if a[i]<=x then inc(dem);

writeln('So phan tu khong lon hon ',x,' la: ',dem);

readln;

end.


Các câu hỏi tương tự
Quỳnh
Xem chi tiết
Hưng Quốc
Xem chi tiết
Yến Phạm
Xem chi tiết
Lê Triệu Vy
Xem chi tiết
Phạm Thị Kim Anh
Xem chi tiết
Phan Đức Duy
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
Quỳnh Như
Xem chi tiết
Thảo Nguyên 36-88
Xem chi tiết