Дан одномерный массив U из N элементов, значения которых находятся в диапозоне от -100 до 100 заменить все отрицательные элементы на нули. вывести на экран исходный и новый массив

Предыдущий
вопрос Следующий
вопрос

const n=10;

var d:array[1..n] of integer;

i:integer;

begin 

writeln('исходный массив:');

for i:=1 to n do begin

d[i]:=-100+random(201);

write(d[i],' ');

if d[i]<0 then d[i]:=0;

end;

writeln;

writeln('измененный массив:');

for i:=1 to n do 

write(d[i],' ');

end.