Question

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

Answer 1

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 (b<>i)) or ((a<>k) and (b=i)) then
   ms[a,b]:= -ms[a,b];
end.