Дано: двовимірний масив дійсних чисел. визначнте: добуток елементів, розміщених у непарних стовпцях.

//Pascal ABC.NET v3.1 сборка 1172

Const
 n=3;

Var
 ma:array[1..n,1..n] of real;
 i,j:integer;
 r:real;
begin
 randomize;
 r:=1;
 writeln('Matrix:');
  for i:=1 to n do
   begin;
   writeln;
    for j:=1 to n do
     begin;
      ma[i,j]:=random(1,10);
      if j mod 2<>0 then r:=r*ma[i,j];
      write(ma[i,j]:4);
     end;
   end;
 writeln;
 writeln('Res=',r);
end.

Пример работы кода:
Matrix:
   5   3   3
   2   2   5
  10   2   4
Res=6000

1)
∵ Второе слагаемое нужно уменьшить на это же число, чтобы сумма осталась неизменной.

∵ Второе слагаемое нужно увеличить на 9849, чтобы и сумма увеличилась на это число.

2)
Нужно второе слагаемое уменьшить на 7846+139=7985.

3)
Примеры к пункту 1)
∵12500+17500=30000 - сумма
(12500+7846)+(17500-7846)=20346+9654=30000 - сумма осталась без изменений

17390+11369=28759 - сумма
(17390+7846)+(11369-7846)=25236+3523=28759 - сумма без изменений.

∵16333+3769=20102 - сумма до увеличения
 20102+9849=29951 - сумма после увеличения на 9849
16333+(3769+9849)=16333+13618=29951 - увеличение суммы после увеличения второго слагаемого на 9849.

Примеры к пункту 2) :
12000+16999=28999 - сумма до изменения
28999-139=28860 - должна быть сумма после увеличения первого слагаемого на 7846 и уменьшения второго слагаемого на 139.
(12000+7846)+(16999-7985)=19846+9014=28860 - сумма уменьшилась на 139.

19679+26999=46678 - сумма до изменения
46678-139=46539 - должна быть сумма после изменения
(19679+7846)+(26999-7985)=27525+19014=46539 - после уменьшения на 139.

1)  Чтобы значение суммы осталось без изменения, надо второе слагаемое уменьшить на 7846.
Проверка: 1000 + 8000 = 9000
Если увеличить, то 1000 + 7846 = 8846
Второе уменьшаем: 8000 - 7846 = 154
Получается: 8846 + 154 = 9000   Значение суммы не изменилось.
2)  Чтобы значение суммы уменьшилось на 139, надо второе слагаемое уменьшить на 7846 и на 139.
Проверка: 2000 + 9000 = 11000
Увеличиваем первое: 2000+ 7846 = 9846
Уменьшаем второе: 9000 - 7846 - 139 = 1015
Получается: 9846 + 1015 =10861    
находим на сколько уменьшилась сумма: 11000- 10861 = 139
Сумма уменьшилась на 139.