想请教一个问题，谢谢

Question

要实现的是:wia[i]:=wia[i-1]+z，wia是一个数组，z是常数，还要循环10次.
哪位能帮我完成吗？
 for i:=  to 100 do 
 begin
  for j:=  to 10 do   //循环，
  begin
    。
  end;
   还要讲结果除以循环次数。
 end;

Answer 1

不懂你的意思 for i:=  to 100 do 
 begin
  for j:=  to 10 do   //循环，
  begin
    。wia[i]:=wia[i-1]+z；
  end;
   wia[i]:=wia[i]/10；
 end;：），不会是这样吧，哈~~~

Answer 2

for i:=1  to 10 do   //循环，
  begin
    if i>0 then
       wia[i]:=wia[i-1]+z;
  end;

Answer 3

不懂你的意思 for i:=  to 100 do 
 begin
  for j:=  to 10 do   //循环，
  begin
    。wia[i]:=wia[i-1]+z；
  end;
   wia[i]:=wia[i]/10；
 end;：），不会是这样吧，哈~~~

Answer 4

to firetoucher(风焱)
 好像是要用到递归算法，但我也不大明白该怎么做。
 
 大体意思是这样的：就好像打仗，第二天的人数就等于第一天的加上一常数，第三天的又等于第二天的加上一常数，起重要循环10次，wia[i]是第i天剩的人数

Answer 5

我觉得说得挺清楚得了，就是要实现wia[i]:=wia[i-1]+z;

Answer 6

1 不太明白这和打仗有什么关系
2 如果按你的意思直接wia[i] := wia[0] + i*z 就行了啊？

Answer 7

i从1到100，其中要循环10次，是这样写吗？
  for i:=1 to 100 do 
  begin
   for j:=1 to 10 do 
   begin
    wia[i]:=wia[i-1]+z;
   end;
  end;

Answer 8

终于看懂你说什么了
for i := 1 to 10 do
begin
  for j :=Low(wia) to High(wia) do
  begin
    if j > 0 then
      wia[j] :=wia[j - 1] + z;
  ShowMessage(IntToStr(Wia[j] div 10));
end;
//实在不知道你所谓的还要讲结果除以10是什么意思，是否是每个数组元素的结果除以10如果//是那就这样写代码