一个换行输出的问题，大学的时候学过，可是就是想不起来了

Question

我有一个动态数组，现在想每行输出10个（如果最后一行不足10个就输出实际的个数），我记得是用两个循环实现的，可是我就是调不出来了，请各位老师指点一下（什么语言都可以，只要给个思路就行！谢谢

Answer 1

var
  i, x, y : integer;
  
  x := 0; y := 0;
  for i:=0 to length(array)-1 do
  begin
    textout( x, y, array[i] );
    x := x +1;
    if x > 9 then
    begin
      x:=0; y := y + 1;
    end;
  end;

Answer 2

不需要两个循环~``````
textout( x, y, array[i] );
    x := x +1;//这里可以 x:=x+10
    if x > 9 then/if x>90
    begin
      x:=0; y := y + 1;//x:=0; y:=y+10
    end;

Answer 3

var
  i, x, y ,k: integer;
begin
  x := 1; y := 1;k:=35;
  for i:=1 to k do
  begin
    Form1.Canvas.Font.Size:=20;
    Form1.Canvas.Font.Color:=clRed;
    Form1.Canvas.TextOut(x*50,y,inttostr(i));
    x := x +1;
   showmessage(inttostr(y));
    if x > 10 then
    begin
      x:=1; y := y+50;
    end;
  end;
end;