Нужно передать функции трёхмерный массив.Как бы ето совершить?
А вообще нужно написать функцию, которая возвращает сумму соседних елементов
в трёхмерном массиве.Очень надеюсь на вашу помощь.Заранее благодарен.

Type
  T1 = array[1 .. n] of integer; { Одномерный массив }
  T2 = array[1 .. n] of T1; { Двумерный массив }
  T3 = array[1 .. n] of T2; { Трехмерный массив }

Function f(Var mass: T3): Integer;
Begin
  { Сама реализация }
End;

Что значит "сумму соседних элементов"? 3-х мерный массив - это же не вектор, и даже не матрица, а КУБ (ну, или параллелепипед, при неравных размерностях)... Сумму каких элементов вычислять будешь? ВСЕХ соседних?

Большое спасибо,а вычислять буду сумму тех,которые не наискось,т.е. две координаты одинаковые, а третья отличается на единицу