матрица

[VioletTears]

Дана матрица A(n,m). Если элемент отрицательный увеличить его в два раза, если отрицательный уменьшить на 4, если равен нулю – заменить единицей.

помогите,пожалуйста решить
заранее спасибо :ya_lamo:

 

[Dock1100]

Если элемент отрицательный увеличить его в два раза, если отрицательный уменьшить на 4, если равен нулю – заменить единицей.

Невъехал. (хз замените на нужное )

cons n=3;
m=2;
var a:array[1..n,1..m] of integer;
i,j:integer

begin
writeln('vvedite masiv');
for i:=1 to n do
for j:=1 to m do
readln(a[i,j]);

for i:=1 to n do
for j:=1 to m do
begin
if a[i,j]<0 then a[i,j]:=хз*a[i,j]; {тут меньше 0}
if a[i,j]>0 then a[i,j]:=хз*a[i,j]; {а тут больше 0}
if [i,j]=0 then a[i,j]:=1;
end;

writeln('noviy masiv');
for i:=1 to n do
for j:=1 to m do
writeln(a[i,j]);

readln;
end.