In matrix A (7.5), subtract the number 10 from all negative elements, print the indices of positive elements.

program zz1;
const n = 7;
b = 5; // set the number of elements in the array
var i, j, k: integer; // set variables of integer type
m: array [1..n, 1..b] of integer;
begin
for i: = 1 to n do
for j: = 1 to b do // get numbers and write them into an array
m [i, j]: = random (101) -50;
for i: = 1 to n do // display the resulting array on the screen
begin
for j: = 1 to b do
write (m [i, j]: 4);
writeln;
end;
writeln;
for i: = 1 to n do
for j: = 1 to b do
if m [i, j] <0 then m [i, j]: = m [i, j] – 10;
for i: = 1 to n do // display the resulting array on the screen
begin
for j: = 1 to b do
write (m [i, j]: 4);
writeln;
end;
write (‘indices of positive array elements =’); // display the answer
writeln;
for i: = 1 to n do
begin
for j: = 1 to b do
if m [i, j]> 0 then writeln (i, ”, j);
writeln;
end;
end.