不是VIP会员,不能显示答案

题目解答

题目:
(坐标统计)输入n个整点在平面上的坐标。对于每个点,可以控制所有位于它左下方的点(即x、y坐标都比它小),它可以控制的点的数目称为“战斗力”。依次输出每个点的战斗力,最后输出战斗力最高的点的编号(如果若干个点的战斗力并列最高,输出其中最大的编号)。
Const 
SIZE= 100; 
Var 
X,y,f:array[1..SIZE] of integer; 
N,i,j,max_f,ans: integer; 

Begin readln(n); 
For i:=1 to n do 
Readln (x[i],y[i]]); 
Max_f :=0; 
For i:=1 to n do 
Begin f[i]:= 0 ; 
For j:= 1 to n do 
Begin if(x[j]< x[i]) and ( y[j]<y[i] ) then 
f[i]:=f[i]+1 ; 
End; 
If (i>1)and (f[i]>f[i-1]) then 
Begin max_f:= f[i]; 
ans:=max_f ; 
End; 
End; 
For i:= 1 to n do 
Writeln(f[i]); 
Writeln(ans); 
End.
考点:
分析:
解答:
评论:
老师: