Здравствуйте, Ekaterina!
Если првильно понял условие, то так. См. приложение.

Приложение:
uses crt;
const m=5;{размер матриц}
n=6;
var a,b,c:array[1..m,1..n] of integer;{тип матриц}
i,j:integer;
begin
clrscr;
randomize;
writeln('Matrica A:');
for i:=1 to m do {сгенерируем и выведем матрису А}
begin
for j:=1 to n do
begin
a[i,j]:=random(20)-9;
write(a[i,j]:4);
end;
writeln;
end;
writeln('Matrica B:');
for i:=1 to m do{сгенерируем и выведем матрису В}
begin
for j:=1 to n do
begin
b[i,j]:=random(20)-9;
write(b[i,j]:4);
end;
writeln;
end;
writeln('Matrica C=A+B:');
for i:=1 to m do
begin
for j:=1 to n do
begin
c[i,j]:=a[i,j]+b[i,j];{сложим матрицы}
write(c[i,j]:4);
end;
writeln;
end;
writeln('Izmenennaya matrica C:');
for i:=1 to m do
begin
for j:=1 to n do
begin
{нечетные положительные превратим в отрицательные, а четные отрицательные-в положительные}
if (c[i,j]>0)and(c[i,j] mod 2<>0) then c[i,j]:=-c[i,j]
else if (c[i,j]<0)and(c[i,j] mod 2=0) then c[i,j]:=-c[i,j];
write(c[i,j]:4);
end;
writeln;
end;
readln
end.