Reduce all elements of the given one-dimensional array by the amount equal to the smallest element of this array.

program zz1;
const n = 30; // set the number of numbers in the array
var i, min: integer;
m: array [1..n] of integer;
begin
for i: = 1 to n do // get n random numbers and write them into an array
m [i]: = random (51) +15;
for i: = 1 to n do // display the resulting array on the screen
write (m [i], ”);
writeln; // go to a new line to display the response
min: = 1,000,000;
for i: = 1 to n do
if m [i] <min then min: = m [i];
for i: = 1 to n do
m [i]: = m [i] – min;
for i: = 1 to n do // display the resulting array on the screen
write (m [i], ”);
end.