В матрице изменить значение положительных элементов, умножив их на 5 - PascalABC.NET

в двумерном массиве изменить значение положительных элементов умножив на 5, а значение отрицательных уменьшить в 2 раза

Листинг программы

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]*5;
  if a[i,j]<0 then a[i,j]:=a[i,j]/5;
 end;

Объяснение кода листинга программы

В данном коде выполняется изменение значений элементов матрицы a[i,j].

Цикл for i:=1 to n проходит по каждому столбцу матрицы.
Цикл for j:=1 to m проходит по каждой строке матрицы.
Проверяется условие if a[i,j]>0, если оно истинно, то значение элемента a[i,j] умножается на 5 и присваивается обратно в a[i,j].
Проверяется условие if a[i,j]<0, если оно истинно, то значение элемента a[i,j] делится на 5 и присваивается обратно в a[i,j].