Написать программу, в которой в массиве из 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 begina[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.

Если это на Паскаль, то: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.