初级问题：如何对一个数组有效的整体赋值。(100分)

例如：a是一个5*5的整数数组，而每个分量a必须被赋予相互无联系，无规律
一值，如何写。如果数组过大，如何赋值。（就是c中对数组的整体赋值的实现）

不太明白你的意思，就说说吧，如果你认为不满意，我是此版主，可把分还给你。
请看DELPHI5 HELP，上面说可以这样定义：
type TCube = array[0..1, 0..1, 0..1] of Integer;
const Maze: TCube = (((0, 1), (2, 3)), ((4, 5), (6,7)));
这样赋值：
Maze[0,0,0] = 0
Maze[0,0,1] = 1
Maze[0,1,0] = 2
Maze[0,1,1] = 3
Maze[1,0,0] = 4
Maze[1,0,1] = 5
Maze[1,1,0] = 6
Maze[1,1,1] = 7
这只是个例子，我自己作了一个，我认为这是一个5*5的整数数组，不要笑（编译通过）：
procedure TForm1.Button1Click(Sender: TObject);
var
myarray : array of array of array of array of array of integer ;
//定义
begin
setlength(myarray,5,5,5,5,5);
//设置长度
myarray[1,1,1,1,1]:=1;
//赋值
myarray[4,4,4,4,4]:=123;
myarray[0,0,0,0,0]:=223344;
end;

整体赋值用5个循环大概可做成，下面的高手请吧。

我重新描述一下问题：在c语言中对某一整数数组可以整体赋值例如
：c[5][5]:={0,2,4,4,3,5,2,3,4,5,4,1,-1……}（所赋的值之间是
毫无关连的，但可预先知道}在dephi中如何实现同样的功能。那位高
手帮忙解答一下，谢谢。还有，版主提供的答案到底赋值完结果是什
么？数组中该除了赋值得那三个，其它都为0吧，看不懂，希望版主
能拨冗再回复一封，照顾一下我这只菜鸟。

to silverwolf:
我的水平很差，能当上此版主纯粹是孙老师和各位同志的错爱，献丑了：
我认为这个5*5的整数数组有5*5*5*5*5=3125个元素，如果全部赋值为零应该
这样作：
procedure TForm1.Button1Click(Sender: TObject);
var
x1,x2,x3,x4,x5:integer;
myarray : array of array of array of array of array of integer ;
//定义
begin
setlength(myarray,5,5,5,5,5);
//设置长度
for x1:=0 to 4do
for x2:=0 to 4do
for x3:=0 to 4do
for x4:=0 to 4do
for x5:=0 to 4do
myarray[x1,x2,x3,x4,x5]:=0;
end;
编译通过。
你任意一元素赋值你肯定知道的。
sorry,C语言没学过，delphi也不行，张郎才已尽。请高手发言吧。。。

在 Delphi 中可以这样：
var
IntArray: array[0..2,0..3] of Integer = ((0,1,2,3),(4,5,6,7),(8,9,10,11));
对数组初始化，但必须是全局的数组变量才行。这样：
var
IntArray: array[0..2,0..3] of Integer = ((0,1,2,3),(4,5,6,7),(8,9,10,11));//OK
procedure aaa;
var
IntArray: array[0..2,0..3] of Integer = ((0,1,2,3),(4,5,6,7),(8,9,10,11));//Error
begin
...
end;

谢谢版主，还有bbkxjy