Из одномерного числового массива 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.