Pascal(динамика)

[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), которая в векторе Х все элементы, ссылающиеся на равные числа, заменяет на первый из этих элементов.

[Stilet]

Ну и в чем трудности?

[Sined121]

динамикой не занимался. а тут еще 10 прог на си делаю с отчетами. ваще жесть не успеваю. Плиз кому не трудно. Заранее благодарен.

[Stilet]

где Х - максимальный элемент матрицы А

А что такое:

x1...xn

?

[Sined121]

X1...xn - это члены ряда заданной формулы

[Jora_Kornev]

Описать функцию sum(a), вычисляющую величину: x1*xn+x2*xn-1+...+xn*x1;

Где в этой формуле

где Х - максимальный элемент матрицы А

???

[Jora_Kornev]

Если Х это xn то могу предложить следующий код (сам не проверял - придумывал на ходу, но должно работать):

program poisk;
uses crt;
const
 n=5;
 m=20;
var
 a : array [1..n, 1..m] of integer;
 max, i, j, summa : integer;
BEGIN

 clrscr;

 for i:=1 to n do
  for j:=1 to m do
   begin
    write('a[', i, ', ', j, ']=');
    readln(a[i, j]);
   end;
 max := a[1, 1];

 for i:=1 to n do
  for j:=1 to m do
   if max<a[i, j] then max:=a[i,j];

 summa:=0

 for i:=1 to n do
  for j:=1 to m do
   summa:=summa+max*a[i, j];

 clrscr;
 writeln('summa=',summa);
 readkey;
END.

Если кто обнаружит ошибки - прошу править.