Составьте программу замены нулевых элементов таблицы единицами Контрольный пример n=5 Данные :(0,5,0,60,0) Результат

program zamena_0_na_1; var n,i,j:integer; a:array[1..100] of integer; begin read(n);//чтение размера входных данных for i:= 1 to n do begin read(a[i]);//чтение входных данных if(a[i]=0) then a[i]:=1;//замена нуля на единицу end; for i:= 1 to n do begin write(a[i], \' \'); //вывод данных после преобразования end; end.