Динамика. Выручайте

[Sined121]

1)Дано:
const n=5;m=20;
type
matrix=array[1..n,1..m] of integer;
Описать функцию sum(a), вычисляющую величину: x1*xn+x2*xn-1+...+xn*x1;
где Х - максимальный элемент матрицы А


2)Дано: type
preal=^real;
vector=array[1..100] of real;
var
x:vector; (-x:^vector
В основной программе зарезервироватьпамять в куче для размещения 100 вещественных значений.
В вектор Х записать указатели на каждоезначение. Сформировать случайные вещественные числа и записать их в динамическую память.
Считая, что все елементы вектора Х отличны от nil, описать:
Процедуру unique(x), которая в векторе Х все элементы, ссылающиеся на равные числа, заменяет на первый из этих элементов.

[Sined121]

1) - это не динамика

[Sined121]

Заранее большое спасибо.

[Sined121]

если чё моя ася 361454834