Заменить все элементы строки с номером k и столбца с номером l на противоположные по знаку (элемент, стоящий на пересечении, не изменять).
Заменить все элементы строки с номером 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 (b<>i)) or ((a<>k) and (b=i)) then
ms[a,b]:= -ms[a,b];
end.
Не нашли ответ?
Похожие вопросы