Обработка двухмерных массивов.

[Sexy girl*]

Здрасте всем, кто здесь!! Не могли бы помочь с некоторыми задачами...пжл :*
Задание:
Написать программу на языке программирования..Pascal
Задачи:
1) В матрице переставить в обратном порядке элементы тех столбцов, которые начинаются нулевыми элементами.

2) Для элементов побочной диагонали, меньших нуля, найти сумму элементов строки, где этот элемент расположен.

[profi]

Ваши наработки или в раздел "Фриланс". Вот могу только подсказать по второй задаче, дальше сами:

sum:=0;
for i:=1 to n do
begin
   if matr[i,n-i+1] < 0 then
    for k:=1 to n do
     sum:=sum+matr[i,k];
   sum:=0;
end;

[val_nnm]

Вот держи

Const MaxArraySize=10;
Var A:Array[1..MaxArraySize,1..MaxArraySize] of Integer;
Var Temp:Integer;

Var mSize:Integer;
Var i,j:Integer;
Var Sum:Integer;
Begin
  Repeat
    Write('Введите размерность матрицы:'); ReadLN(mSize);
    if (mSize<1) then WriteLN('Размерность матрицы не может быть меньше 1');
    if (mSize>MaxArraySize) then WriteLN('Размерность матрицы не может быть больше ',MaxArraySize);
  until ((mSize>=1) and (mSize<=MaxArraySize));
  for i:=1 to mSize do
  Begin
    for j:=1 to mSize do
    Begin
      Write('A[',i,',',j,']='); ReadLN(A[i,j]);
    End;
  End;

  WriteLN;
  WriteLN;
  WriteLN('Исходная матрица');
  for i:=1 to mSize do
  Begin
    for j:=1 to mSize do
    Begin
      Write(A[i,j]:5)
    End;
    WriteLN;
  End;



{Переставляем элементы столбцов начинающиеся с 0}
  for j:=1 to mSize do
  Begin
    if (A[1,j]=0) then Begin
      for i:=1 to (mSize div 2) do
      Begin
        Temp := A[i,j];
        A[i,j] := A[mSize-i+1,j];
        A[mSize-i+1,j] := Temp;
      End;
    End;
  End;

  WriteLN;
  WriteLN;
  WriteLN('Матрица после перестановки');
  for i:=1 to mSize do
  Begin
    for j:=1 to mSize do
    Begin
      Write(A[i,j]:5)
    End;
    WriteLN;
  End;


  WriteLN;
  WriteLN;
{Ищем элементы на побочной диагонали}
  for i:= 1 to mSize do
  Begin
    if (A[i,mSize-i+1]<0) then Begin
      {Итак мы нашли ствоку, теперь просумируем все элементы в ней}
      Sum := 0;
      for j:= 1 to mSize do
      Begin
        Sum := Sum+A[i,j];
      End;
      WriteLN('В строке №',i,' на побочной диагонали элемент A[',i,',',(mSize-i+1),
              ']=',A[i,mSize-i+1],'<0  и сумма элементов строки A[',i,',',1,']..A[',i,',',mSize,']=',Sum);
    End;
  End;
  ReadLN;
End.