Задачи Pascal

[BBorr1]

Уважаемый Hacker19_90
не могли бы вы запостить в 1 сообщении их я просто не шарю)

[ByAlex]

Вот первая -

uses crt;
const
  n=5;
var
  Arr:array[1..n,1..n] of Integer;
  Sum,Proiz,i,j:Integer;
  function SchetSum:Integer;
  var
    t:Integer;
  begin
    Sum:=0;
    t:=n;
    for i:=2 to n do
    begin
      for j:=t to n do
        Sum:=Sum+Arr[i,j];
      Dec(t);
    end;
  end;
  function SchetProiz:Integer;
  begin
    Proiz:=1;
    for i:=1 to n-1 do
      for j:=i to n-1 do
        Proiz:=Proiz*Arr[i,j+1];
  end;
  function transponirovanie:Integer;
  var
    t:Integer;
  begin
    for i:=1 to n do
      for j:=i to n do
      begin
        t:=Arr[i,j];
        Arr[i,j]:=Arr[j,i];
        Arr[j,i]:=t;
      end;
  end;
begin
  writeln('Input the elements of matrix[',n,',',n,']:');
  for i:=1 to n do
    for j:=1 to n do
      read(Arr[i,j]);
  SchetSum;
  writeln('Summa = ',sum);
  SchetProiz;
  writeln('Proizvedenie = ',proiz);
  transponirovanie;
  writeln('Transponirovanie - ');
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(Arr[i,j],' ');
    writeln;
  end;
  readln;
  Readln;
end.