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

Question

Информатика: Заменить 0 на 5 и вывести индексы замен 3 0 5 -- 3 5 5 турбо паскаль , ​

Щкх · Answer

program test;var a,: array [1..10] of integer;i: integer;beginfor i:=1 to 10 do readln (a[i]);for i:=1 to 10 doif a[i] = 0 then begin a[i]:=5; write(i:3); end;end....

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

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