Mathematica：提取列表数组的元素

Question

我需要提取列表数组的元素。 列表数组来自ImageData [..，“Byte”]，如下例所示。

i = Import["ExampleData/lena.tif"];
array=ImageData[ImageTake[i, {1, 5}, {1, 5}], "Byte"];
MatrixForm@array

position是一个列表，其中每个元素都确定了必须提取的数组元素：

positions = {{2, 3}, {4, 5}}

结果必须是一系列列表。在此示例中包含两个元素，一个由{2,3}指定，另一个由{4,5}指定。

不幸的是，Mathematica的Extract-Function不适用于包含列表的数组。 非常感谢你提前了！