[計(jì)算機(jī)]花生采摘解題報(bào)告-資料下載頁
2025-03-23 02:14本頁面
【正文】 lue[I]:=Value[J]。 Value[J]:=Value[0]。 X[0]:=X[I]。X[I]:=X[J]。X[J]:=X[0]。 Y[0]:=Y[I]。Y[I]:=Y[J]。Y[J]:=Y[0]。 Inc(I)。Dec(J)。 End。 Until IJ。 If IR Then Sort(I,R)。 If LJ Then Sort(L,J)。 End。 Procedure Print(K:Longint)。 Begin Writeln(K)。 Halt。 End。Begin Read(M,N,K)。 Top:=0。 For I:=1 to M do For J:=1 to N do Begin Read(Map[I,J])。 If Map[I,J]0 Then Begin Inc(Top)。 Value[Top]:=Map[I,J]。 X[Top]:=I。Y[Top]:=J。 End。 End。 Sort(1,Top)。 K:=K2。 X[0]:=1。Y[0]:=Y[1]。 T:=0。I:=1。Sum:=0。 While TK do Begin T:=T+X[I]X[I1]+Y[I]Y[I1]+1。 If T+X[I]1K Then Print(Sum)。 Sum:=Sum+Value[I]。 T:=T+X[I]1。 Inc(I)。 End。End.
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1