СРОЧНО
В массиве из 10 элементов заменить нули на 1 и вывести на экран(в паскале)​

var

 i: integer;

 a: array[1..10] of integer;

begin

 for i := 1 to 10 do

   read(a[i]);

 for i := 1 to 10 do

 begin

   if a[i] = 0 then a[i] := 1;

   write(a[i], ' ');

 end;

end.