Đăng nhập để hỏi chi tiết


Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
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.
Hãy giúp mọi người biết câu trả lời này thế nào?
![]()
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.
Hãy giúp mọi người biết câu trả lời này thế nào?
![]()
Bảng tin
6
376
1
làm bằng C++ đc k???