Ответ:

var

 a : array [1..10] of integer;

 i, z : integer;

begin

 randomize;

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

 for i := 1 to 10 do begin

   a[i] := random(100);

   z := random(2);

   if z<1 then

     a[i] := -a[i];

   write(a[i], ' ')

 end;

 writeln();

 writeln('Модифицированный массив :');

 for i := 1 to 10 do begin

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

   write(a[i], ' ');

 end;

end.