Помогите, пожалуйста, с решением

[Ukiro]

Задачи по Delphi:

1. Дана вещественная матрица размером N x N. Переставляя ее строки и столбцы добиться того, чтобы наибольший элемент матрицы оказался в нижнем левом углу.

2. И вычислить:


Заранее огромное спасибо!

[newerow1989]

1 задача:

const n=10;
var p:array[1..n,1..n] of real;
    i,j,imax,jmax:integer;
    z:real;
begin
   Randomize;
   For i:=1 to n do
   begin
      For j:=1 to n do
      begin
         p[i,j]:=Random(100)+Random;
         Write(p[i,j]:5:2,'  ');
      end;
      Writeln;
   end;
   Writeln;
   imax:=1;
   jmax:=1;
   For i:=1 to n do
      For j:=1 to n do
         If p[imax,jmax]<p[i,j] then
         begin
            imax:=i;
            jmax:=j;
         end;
   Writeln('p[',imax,', ',jmax,'] = ',p[imax,jmax]:5:2);
   Writeln;
   For i:=1 to n do
   begin
      z:=p[i,1];
      p[i,1]:=p[i,jmax];
      p[i,jmax]:=z;
   end;
   For j:=1 to n do
   begin
      z:=p[n,j];
      p[n,j]:=p[imax,j];
      p[imax,j]:=z;
   end;
   For i:=1 to n do
   begin
      For j:=1 to n do
         Write(p[i,j]:5:2,'  ');
      Writeln;
   end;
   Writeln;
   Readln;
end.

2 задача:

var s:real;
    i,fac,zn:integer;
begin
   zn:=1;
   fac:=1;
   s:=1;
   For i:=2 to 8 do
   begin
      fac:=fac*i;
      s:=s*(2+zn/fac);
      zn:=-zn;
   end;
   Writeln(s:5:5);
   Readln;
end.

Сойдет?