Нужно сделать пррогамму с обработкой массивов

[sancheszone]

Нужно ввести с клавиатуры числа матрицы (положительные и отрицательные)
например:
2 -7 -9
4 -5 -4
7 6 3
и нужно чтобы он выводил резульат: складывал в модуле все отрицательные-нечетные числа, тоесть во втором столбце 5+7 и получим 12, а в третьем столбце должен вывести только 9 , так как складывать с 4 нельзя она четная. А в первом столбце если не будет отрицательных чисел как на примере, то программ должна выводить ноль.

Вот что должно получится

Исходная матрица:
2 -7 -9
4 -5 -4
7 6 3

Сумма отрицательных нечетных элементов
0 12 9

Но это я на примере сделал, вообще можно ввести любые цифры и чтобы он также все определял.

Я вот начал делать, а как сами преобразования делать запутался:

program matrix;       
var
w:array [1..20,1..20] of real;    
n,i,m,j:integer;
q:real;
begin                                    
     writeln('Напишите кол. строк');
     readln(n);
     writeln('Напишите кол столбцов');
     readln(m);
       for i:=1 to n do
       for j:=1 to m do
       begin
            writeln('w[',i,',',j,']');
            readln(w[i,j]);
       end;                               
       writeln;
       writeln('Исходная матрица');
       for i:=1 to n do
       begin                             
       for j:=1 to m do
       write(w[i,j]:3:0);
       writeln;
       end;                             
       writeln;
       writeln('Сумма модулей всех отриц. нечетных элементов');
        for j:=1 to m do begin            
        for i:=1 to n do
               w[i,j]:=-1*w[i,j];       {не работает}
               
               {if w[i,j]<0 then begin
               w[i,j]:=q+w[i,j];
               end
               else w[i,j]:=0;}             

        write(w[i,j]:3:0);
        end;
        writeln;
end.

[Lawless]

s: integer // summa

for i:= 1 to n do
Begin
 for j:= 1 to n do
  if (a[j,i] < 0) and (a[j,i] mod 2 <> 0) then
  begin
    a[j,i]:= -1*a[j,i];
    s:= s + a[j,i];
  end;
 writeln(s);
 s:= 0;
end;

[sancheszone]

c mod ошибку выдает, но за идею спасиба) Как тут плюсик поставить тебе можно? Типо отзыв?

[Lawless]

Сообщение от sancheszone

c mod ошибку выдает, но за идею спасиба) Как тут плюсик поставить тебе можно? Типо отзыв?

с mod выдаёт ошибку, потому что у вас тип - real, а mod используеться только для Integer'a.
П.С да что бы поставить плюсик - жмите отзыв