hi, 
我是DELPHI初学者, 我有问题想请教. 代码如下:

Procedure DiscoverSomethingInteresting(Input : Array Of Integer; Out x, y, z : Integer);
Var
i, j, k : Integer;
w : Integer;
Begin
z := -MaxInt;
For i := 1 To Length(Input) Do
Begin
For j := 0 To Length(Input) - i Do
Begin
w := 0;
For k := 0 To i - 1 Do
Begin
w := w Input[j k];
End;
If w > z Then
Begin
z := w;
x := j;
y := j i-1;
End;
End;
End;
End;

问题: 1. 以上的代码, 有逻辑上的错误吗?
2. 从上面的代码, 可以说明, array有什么有趣的特性(应该是相对于其它的语言, 问题是这样问的.).

1.你期待要有什麼邏輯的錯誤, 你知道這支程式是在跑什麼結果?
2.你希望 array 有什麼有趣的特性, 不了!

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.