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

Пожалуйста

Благодарю , огромное спасибо

Язык Pascal, работа на массиве. с заполнением с клавиатуры. Ты заполняешь 5 элементов ( через enter ), а он тебе выводит тоже самое, только с однерками вместо нулей.Var x: array[1..5] of integer;Var i,h:integer;Beginfor i:= 1 to 5 doBegin;Readln(h);if (h=0) then x[i]:=1 else x[i] = h;end;for i:=1 to 5 doBegin;Writeln('Элемент номер ',i,' массива: ',x[i]);end;readln(x);end.