您所在位置：主题：帮忙读程序
菜鸟横江
[专家分：0] 发布于 2005-09-09 19:55:00
var
I,j,n:integer;
X,Y:ARRAY[1...100] of integer;
begin
readln(n);
for I:=1 to n-1 do read (X[I]);
for j:=I=1 to n do
if X[I]>X[j] then inc(Y[I])
else if X[I]<X[j] then inc(Y[I]);
forI:=1 to n do write(Y[I]);
writeln;
end.
当键盘输入
10
5 34 6 8 9 23 35 78 6 10
屏幕将输出什么？？
I,j,n:integer;
X,Y:ARRAY[1...100] of integer;
begin
readln(n);
for I:=1 to n-1 do read (X[I]);
for j:=I=1 to n do
if X[I]>X[j] then inc(Y[I])
else if X[I]<X[j] then inc(Y[I]);
forI:=1 to n do write(Y[I]);
writeln;
end.
当键盘输入
10
5 34 6 8 9 23 35 78 6 10
屏幕将输出什么？？
