двумерный массив

[nura satre]

Дано двумерный массив целых чисел. Вычислить сумму всех отрицательных элементов массива и добавить его к третьему элементу массива во втором столбце.
Подскажите, пожалуйста, как выполнить такое задание. Может есть какие-то хорошие сайты с подсказками
задачу надо сделать с применением функций
буду благодарна за любую информацию

[Aleksandr H.]

Сама какую часть сделала?

[min@y™]

Сообщение от nura satre

Подскажите, пожалуйста, как выполнить такое задание.

Включить комп и написать программу.
Откуда задание взялося?

[newerow1989]

var p:array[1..10,1..10] of integer;
    i,j,s:integer;
begin
   Randomize;
   For i:=1 to 10 do
   begin
      For j:=1 to 10 do
      begin
         p[i,j]:=Random(21)-10;
         Write(p[i,j]:3,'  ');
      end;
      Writeln;
   end;
   Writeln;
   s:=0;
   For i:=1 to 10 do
      For j:=1 to 10 do
         If p[i,j]<0 then
            s:=s+p[i,j];
   Writeln('s = ',s);
   Writeln;
   p[2,3]:=p[2,3]+s;
   For i:=1 to 10 do
   begin
      For j:=1 to 10 do
         Write(p[i,j]:3,'  ');
      Writeln;
   end;
   Writeln;
   Readln;
end.