不太明白,是这个意思吗?
var
 a:array [0..9] of string;
begin
...
 a[0] := 元素1
 a[1]...
  
end;

解决方案 »

  1.   

    const
       NumArray:array[0..9] of integer=(0,1,2,3,4,5,6,7,8,9);
      

  2.   

    const
       NumArray:array[0..9] of integer;
    i:integer;
    while i<10 do
       numarray[i]:=10-i;
      

  3.   

    const
       NumArray:array[0..9] of integer=(10,9,8,7,6,5,4,3,2,1);
      

  4.   

    const
       NumArray:array[0..9] of integer;
    i:integer;
    begin
      i:=0;
      while i<10 do
      begin
        numarray[i]:=10-i;
      end;
    end;
      

  5.   

    const
       NumArray:array[0..9] of integer;
    i:integer;
    begin
      i:=0;
      while i<10 do
      begin
        numarray[i]:=10-i;
       inc(i);
      end;
    end;