Вектора,матрицы,массивы.

[Ильнур1993]

Помогите пожалуйста, никак не могу сделать. Спасибо заранее)

[rubius2008]

{1}
for j:=1 to n do begin
  ifact:=1;
  for i:=1 to n do begin 
     ifact:=ifact*i;
     a[j,i]:=3*ifact/(5*i+2*j);
  end;
end;

{2}
for j:=1 to n do begin
   max[j]:=a[j,1];
   for i:=2 to n do if max[j]<a[j,i] then max[j]:=a[j,i];
end;
for i:=1 to n do begin
   x[i]:=0;
   for j:=1 to n do x[i]:=x[i]+a[i,j];
   x[i]:=x[i]-max[i];
end;

и т.д.
дальше сами попробуйте