Replace with zeros all positive elements of one-dimensional array A of length N.

program zzzz1;
const n = 5; // set the number of elements in the array
var i: integer; // set variables of integer type
A: array [1..n] of integer;
begin
for i: = 1 to n do // get n random numbers and write them into an array
A [i]: = random (51) – 25;
for i: = 1 to n do // display the original array on the screen
write (A [i], ”);
writeln; // go to a new line to display the response
for i: = 1 to n do
if A [i]> 0 then A [i]: = 0;
for i: = 1 to n do // display the resulting array on the screen
write (A [i], ”);
end.