Задачи вызывают затруднение... матрица и сумма ряда.

[GorNikSar]

Не могу решить. Нужно срочно. Кто знает, помогите.

1. Матрица А состоит из 7 строк и 9 столбцов. Найти максимальный и минимальный элементы и поменять их местами.

2. Вычислить сумму бесконечного сходящегося ряда:
S=(x-1)/(x+1)+1/3*((x-1)/(x+1))^3+... ...+1/(2n+1)*((x-1)/(x+1))^(2n+1)
0,2<=x<=1

[Fedka]

дарова вот тебе код программы №2

var s:string;
    c:byte;
    b:boolean;
begin
     readln(s);
     b:=true;
     while b do
      begin
       b:=false;
       c:=pos('[]',s);
       if c>0 then
        begin
         delete(s,c,2);
         b:=true;
        end;
       c:=pos('()',s);
       if c>0 then
        begin
         delete(s,c,2);
         b:=true;
        end;
       c:=pos('{}',s);
       if c>0 then
        begin
         delete(s,c,2);
         b:=true;
        end;
      end;
    if length(s)>0 then writeln('No')
    else writeln('Yes');
end.

[GorNikSar]

Почему-то нифига не пашет. Это точно то, что нужно?