Viết chương trình nhập vào n (0 < n <= 100) số nguyên. In ra số lượng các số thuộc đoạn [500; 3000] trong dãy số. Dữ liệu: Dòng đầu tiên ghi số nguyên không âm n. Dòng 2 ghi n số nguyên dương cách nhau một dấu cách trống. Kết quả: Đưa ra số lượng các số thuộc đoạn [500; 3000] trong dãy số.
2 câu trả lời
uses crt;
var s,n,i:integer;
a:array[1..100] of integer;
begin
clrscr;
readln(N);
for i:=1 to n do
begin
readln(a[i]);
if (500<=a[i]) and(a[i]<=3000) then s:=s+1;
end;
write(s);
readln;
end.
var A:array[1..1000] of longint;
n,i,d:longint;
begin
read(n);
for i:=1 to n do
begin
read(a[i]);
if (500<=A[i]) and (A[i]<=3000) then inc(d);
end;
write(d);
end.
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
