Ответ:

program z1;

var i:integer;

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

begin

write('Старый массив: ');

for i:=1 to 10 do

begin

a[i]:=random(11)-5;

write (a[i]:6)

end;

writeln;

write(' Новый массив: ');

for i:=1 to 10 do

begin

if a[i] > 0 then a[i]:=a[i]/2;

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

write (a[i]:6)

end

end.

Объяснение:

Элементы равные 0 остаются без изменений