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/05/10 07:16:53
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.
希望我的回答能帮到你