Трехмерный динамический массив в Pascal

[4итер]

Создать трехмерный динамический массив типа real 10*10*10. Заполнить случайными числами от 0 до 100, в цикле перемножить все элементы и поделить на их количество.
Массив вроде как описать смог, а дальше не пойму.

type TMass1=array of real;
       TMass2=array of TMass1;
       TMass3=array of TMass2;
var i,j:real;
Setlength(FMass,10);
for i:=Low(FMass) to High(FMass) and
begin
Setlength(FMass[i],10);
for j:=Low(FMass[i] to High(FMass[j]
Setlength(FMass[i][j],10);
end;

[Stilet]

вроде как

Вот вот...

type TMass1=array of array of array of real;

var i,l,j:integer; FMass:TMass;
Setlength(FMass,10,10,10);
for i:=Low(FMass) to High(FMass) do
 for j:=Low(FMass[i]) to High(FMass[i]) do
  for l:=Low(FMass[i,j]) to High(FMass[i,j]) do
    FMass[i,j,l]:=random();

Вот так еще более менее правильно будет.

[zetrix]

1) Поиск по форуму: http://www.programmersforum.ru/showthread.php?t=8011

2) Код можно упростить:

var Mass: array of array of array of real;
begin
SetLength(Mass,size_i,size_j,size_k); //или SetLength(Mass,10,10,10);
//...
end.

3) Заполнить случайными числами от 0 до 100 - пробег по каждому элементу данного массива с помощью трёх вложенных циклов.

For i:=0 to size_i -1 do
  For j:=0 to size_j - 1 do
    For k:=0 to size_k - 1 do
      Mass[i,j,k] := ... //думаю поймёте, что тут необходимо написать

4) перемножение элементов - аналогично
5) Поделить их на количество - не ясное условие. Поделить каждый элемент массива на кол-во или поделить их произведение? В любом случае, если всё выше написанное реализовано этот вопрос достаточно просто решается.

[4итер]

не понимаю как в цикле перемножить все элементы. з.ы. и поделить их на 100