

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 i,n,dem,j,x:longint; a:array[0..1000000]of longint;
begin
clrscr;
write('N=');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
for i:=1 to n do
begin
j:=1; dem:=0;
while a[j]<>i do inc(j);
for x:=1 to j do if a[x]>a[j] then inc(dem);
writeln(dem);
end;
readln
end.
Hãy giúp mọi người biết câu trả lời này thế nào?

Bảng tin
699
5834
461
Thế bạn có đc quà của hoidap247 ko
2376
46183
1806
Chưa bạn ơi:(
699
5834
461
Thấy mod bảo làm bài chất lượng và làm nhiều bài thì đc quà. Mk thấy bạn lúc nào cx đầu bảng mà bài làm lại đúng
699
5834
461
Chắc tháng này bạn đc đó
699
5834
461
Cố lên
2376
46183
1806
Cảm ơn bạn :)))
2
1114
2
Bạn giải thích cách làm giúp mik không ??? Mik ko hỉu lắm T.T
699
5834
461
Bây giờ em thấy em ngu nhất môn tin học vì bé giờ em học chẳng hiểu j và năm nay trường em ko có phòng học tin nữa :(( xây lại trường mới mất nhiều kinh phí