Question

заменить 0 на 5 и вывести индексы замен 3 0 5 --> 3 5 5
Турбо паскаль , помогите пожалуйста ​

Answer 1

program test;

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

i: integer;

begin

for i:=1 to 10 do

readln (a[i]);

for i:=1 to 10 do

if a[i] = 0 then begin a[i]:=5; write(i:3); end;

end.