помогите с решением двумерного массива

За бесплатно:
================================================
program pmatrix;

const
N = 10; { строк }
M = 10; { столбцов }

var
matrix: array [1 .. N, 1 .. M + 1] of Integer;
I, J: Integer;
SumP, SumN: Integer;

begin
{ заполнение матрицы случайными (+) и (-) числами }
Randomize;
for I := 1 to N do
for J := 1 to M do
matrix[I, J] := 500 - Random(1000); { случайно, от -500 до +500 }

{ формирование значений последнего столбца }
for I := 1 to N do { перебор строк }
begin
SumP := 0;
SumN := 0;
for J := 1 to M do { перебор столбцов }
begin
{ вычисление сумм (+) и (-) элементов I-й строки }
if matrix[I, J] > 0 then
SumP := SumP + matrix[I, J]
else
SumN := SumN + Abs(matrix[I, J]);
end;
{ раскрытие модуля и вычисление последнего элемента I-й строки }
if SumP > SumN then
matrix[I, M + 1] := -(SumP - SumN)
else
matrix[I, M + 1] := +(SumP - SumN);
end;

{ вывод матрицы }
for I := 1 to N do
begin
for J := 1 to M + 1 do
begin
Write(matrix[I, J], ', ');
end;
WriteLn;
end;
ReadLn;
end.
================================================
Или можно в ICQ: 228004347 или Агент.

пиши в адрес, за 50 на телефлн