из одномерного числового массива A длинной n получить массив B , заменив все нулевые элементы - единицами. Подсчитать число замен. Вывести на экран массивы A и B и ответ на вопрос задачи

program special;const n=15; var i: integer;A: array [1..n] of integer;B: array [1..n] of integer;beginrandomize;for i:=1 to n do A[i]:=random(5);for i:=1 to n do beginif A[i]=0 then b[i]:=1 else B[i]:=A[i];end;for i:=1 to n do write(A[i],' ');writeln;for i:=1 to n do write(B[i],' ');end.

Паскаль:program special;const n=15; var i: integer;A: array [1..n] of integer;B: array [1..n] of integer;beginrandomize;for i:=1 to n do A[i]:=random(5);for i:=1 to n do beginif A[i]=0 then b[i]:=1 else B[i]:=A[i];end;for i:=1 to n do write(A[i],' ');writeln;for i:=1 to n do write(B[i],' ');end.