Question

Элементы массива, равные ноль, заменить на 1. Как это записать в Паскале?

Answer 1

для 10 элементов

for i:=1 to 10 do
if a[i]=0 then a[i]:=1;