Помогите с задачками о матрицах((

[Colette]

Здравствуйте! Помогите пожалуйста решить 2 задачки..всю голову уже сломала(((
1. Определить и напечатать суммы элементов квадратной матрицы (двумерный массив nxn, где n - четное число), расположенных параллельно главной диагонали, исключая ее;
2. Разработать функцию для вычисления определителя матрицы 3-го порядка (видела тут похожие задачи по методу Гаусса, но это не подходит((
заранее спасибо

[puporev]

Вам крупно повезло, что я на форуме и у меня есть решения этих задач, так что держите.

program matrica;
uses crt;
var n,i,j,l,m:integer;
    a:array[1..20,1..20]of integer;
    b,c:array[1..20]of integer;
begin
clrscr;
write('n=');readln(n);
randomize;
Writeln('Ishodnaja matrica:');
for i:=1 to n do
   begin
     for j:=1 to n do
         begin
           a[i,j]:=random(10);
           write(a[i,j]:3);
         end;
      writeln;
   end;
readln;
for l:=1 to n-1 do  //диагонали выше главной
   begin
     for i:=1 to n-1 do
       begin
         for j:=2 to n do
         if j=i+l then
            begin
              b[l]:=b[l]+a[i,j];//записываем суммы в массив
            end;
       end;
  end;
for l:=1 to n-1 do  //ниже главной
   begin
     for i:=2 to n do
       begin
         for j:=1 to n-1 do
         if j=i-l then
           begin
             c[l]:=c[l]+a[i,j];//в другой массив
          end;
       end;
  end;
writeln('Summy po diagonaliam parallelnyh glavnoj:');
for i:=n-1 downto 1 do//массив ниже выводим задом наперед
write(c[i],' ');
for i:=1 to n-1 do  //массив выше - нормально
write(b[i],' ');
readln;
end.


program opred;
uses crt;
const n=3;
type
   Tmatr=array [1..n,1..n] of real;
var a:Tmatr;
    det:real;//определитель
//процедура перестановки строк, чтобы главный элемент не оказался 
//нолем или близким к нулю значением
procedure Per(k,n:integer;var a:Tmatr; var p:integer);
var i,j:integer;z:real;
begin
   z:=a[k,k];i:=k;p:=0;
   for j:=k+1 to n do
     begin
       if abs(a[j,k])>z then
          begin
            z:=abs(a[j,k]);i:=j;
            p:=p+1;//считаем количество перестановок, т.к. при каждой 
                    //перестановке меняется знак определителя
          end;
     end;
   if i>k then
   for j:=k to n do
     begin
       z:=a[i,j];a[i,j]:=a[k,j];a[k,j]:=z;//перестановка
     end;
end;
function znak(p:integer):integer;//ф-я определения знака определителя
begin
if p mod 2=0 then //если четное количество перестановок, "+" , если нет "-"
znak:=1 else znak:=-1;
end;
procedure opr(n:integer;var a:Tmatr;var det:real);//собственно определитель
var k,i,j,p:integer;
    r:real;
begin
det:=1;
for k:=1 to n do  //считаем по алгоритму, который во всех учебниках 
   begin
     if a[k,k]=0 then per(k,n,a,p);
     det:=znak(p)*det*a[k,k];
     for j:=k+1 to n do
       begin
         r:=a[j,k]/a[k,k];
         for i:=k to n do
           begin
             a[j,i]:=a[j,i]-r*a[k,i];
           end;
       end;
   end;
end;
begin
clrscr;
opr(n,a,det);
write('opr=',det:4:0);
readln
end.

[Colette]

спасииииииибоо!!