Работа с массивами

[anton1911]

ребят, помогите с 2 и 3-м заданием кто знает:

все нужно сделать в одной проге:

1) Сформировать массив элементов A по формуле a[i,j]:=(2*abs(3.3-i)-1.5)*(6.5-j)*exp(j*ln(2))*(i-3.4)*(j/3-1);
Это я сделал. Все работает. Вот:

 
program test-zadaniye;
uses crt;
const Len=100;
Type
 mtr=array[1..Len, 1..Len] of real;
 var i, j, m, n:integer;
 
 a:mtr;
begin
 clrscr;
 writeln('Vvedite razmernost matruzy A: chisla M u N');
 write('m=');
 read(m);
 write('n=');
 read(n);
 writeln;
 
  for i:=1 to m do
   for j:=1 to n do
   a[i,j]:=(2*abs(3.3-i)-1.5)*(6.5-j)*exp(j*ln(2))*(i-3.4)*(j/3-1);
 
  writeln;
  for i:=1 to m do
   for j:=1 to n do
     write ('a[',i,',',j,']=', a[i,j]:10:7, '  ');
 
end.

Получили матрицу A.

2) Из матрицы A нужно получить элементы вектора X, как
- среднее арифметическое максимальных элементов i-го рядка и i-го столбца, если максимальные элементы положительные
- иначе - как сумы непарных элементов парных столбцов

3) Зная вектор X вычислить значение функции U, как (c=4, b=1):
- найменьшое произведение двух соседних элементов вектора X, если с>b
- иначе - за U взять последний элемент

спасибо.