Написать программу, в которой в массиве из 15 случайных целых чисел, на отрезке от - 5 до 5, числа равные 0 заменяются на 1

Если это на Паскаль, то:

program special_for_raushan; const n=15; var i: integer; a: array [1 ... n] of integer; beginrandomize; for i:=1 to n do begin a[i]:=random (11) - 5; write (a[i],' ') ; end; writeln; for i:=1 to n do beginif a[i]=0 then a[i]:=1; write (a[i],' ') ; end; end.