作业帮pascal 只有一行共有n个元素：数组A的编码B描述 Description 设有一个数组A:array[0..n-1] of integer;数组中存放的元素为0至n-1之间的整数,且A[i]A[j](当ij时).如：n=6时,A=(4,3,0,5,1,2) 此时,数组A的编码定义
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/29 21:24:18
![pascal 只有一行共有n个元素：数组A的编码B描述 Description 设有一个数组A:array[0..n-1] of integer;数组中存放的元素为0至n-1之间的整数,且A[i]A[j](当ij时).如：n=6时,A=(4,3,0,5,1,2) 此时,数组A的编码定义](/uploads/image/z/14331302-62-2.jpg?t=pascal+%E5%8F%AA%E6%9C%89%E4%B8%80%E8%A1%8C%E5%85%B1%E6%9C%89n%E4%B8%AA%E5%85%83%E7%B4%A0%EF%BC%9A%E6%95%B0%E7%BB%84A%E7%9A%84%E7%BC%96%E7%A0%81B%E6%8F%8F%E8%BF%B0+Description+%E8%AE%BE%E6%9C%89%E4%B8%80%E4%B8%AA%E6%95%B0%E7%BB%84A%3Aarray%5B0..n-1%5D+of+integer%3B%E6%95%B0%E7%BB%84%E4%B8%AD%E5%AD%98%E6%94%BE%E7%9A%84%E5%85%83%E7%B4%A0%E4%B8%BA0%E8%87%B3n-1%E4%B9%8B%E9%97%B4%E7%9A%84%E6%95%B4%E6%95%B0%2C%E4%B8%94A%5Bi%5DA%5Bj%5D%28%E5%BD%93ij%E6%97%B6%29.%E5%A6%82%EF%BC%9An%3D6%E6%97%B6%2CA%3D%284%2C3%2C0%2C5%2C1%2C2%29+%E6%AD%A4%E6%97%B6%2C%E6%95%B0%E7%BB%84A%E7%9A%84%E7%BC%96%E7%A0%81%E5%AE%9A%E4%B9%89)
pascal 只有一行共有n个元素：数组A的编码B描述 Description 设有一个数组A:array[0..n-1] of integer;数组中存放的元素为0至n-1之间的整数,且A[i]A[j](当ij时).如：n=6时,A=(4,3,0,5,1,2) 此时,数组A的编码定义
pascal 只有一行共有n个元素：数组A的编码B
描述 Description
设有一个数组A:array[0..n-1] of integer;数组中存放的元素为0至n-1之间的整数,且A[i]A[j](当ij时).如：n=6时,A=(4,3,0,5,1,2)
此时,数组A的编码定义如下：
A[0]的编码为0
A[i]的编码为：在A[0],A[1],……,A[i-1]中比A[i]的值小的个数（i=1,2,……,n-1）
所以上面的数组A的编码为：B=(0,0,0,3,1,2)
输入格式 Input Format
第一行只有一个正整数：n
第二行共有n个整数,对应于数组A的n个元素
输出格式 Output Format
只有一行共有n个元素：数组A的编码B
样例输入 Sample Input
6 4 3 0 5 1 2
样例输出 Sample Output
0 0 0 3 1 2
时间限制 Time Limitation
各个测试点1s
pascal 只有一行共有n个元素：数组A的编码B描述 Description 设有一个数组A:array[0..n-1] of integer;数组中存放的元素为0至n-1之间的整数,且A[i]A[j](当ij时).如：n=6时,A=(4,3,0,5,1,2) 此时,数组A的编码定义
program long;
var f:array[0..1000]of boolean;
a,b:array[1..1000]of longint;
i,n,m:longint;
procedure c1;
var i,j:longint;
begin
for i:=1 to n do
for j:=1 to i-1 do
if a[i]>a[j] then inc(b[i]);
end;
begin
read(n);
for i:=1 to n do read(a[i]);
c1;
for i:=1 to n do
begin
write(b[i]);
if i<>n then write(' ');
end;
writeln;
end.
希望我的回答能帮到你