Заменить все элементы строки с номером k и столбца с номером l на противоположные по знаку (элемент, стоящий на пересечении, не изменять).

Program x;

const n = 10; m = 10;

var ms: array [1 ... n, 1 ... m] of integer;

a, b, k, i: integer;

begin

for a:=1 to n do

for b:=1 to m do

read (ms[a, b]) ;

readln (k) ; readln (i) ;

for a:=1 to n do

for b: = 1 to m do

if ((a=k) and (bi)) or ((ak) and (b=i)) then

ms[a, b]: = - ms[a, b];

end.