Question

Вывести элементы числовой последовательности, в записи значения которых содержится только одна цифра 5.

Answer 1

var

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

i : integer;

begin

randomize;

for i:=1 to 10 do A[i]:=Random(15);

for i:=1 to 10 do if A[i]=5 then

writeln('да то что надо ',A[i])

else writeln('ошибка'); readln ;

end.

Answer 2

ну вообще for i:=1 to 10 do if A[i]=5 then ты ищешь элементы равные 5 а нужно чтобы хотябы 1 цифра была равна 5

Answer 3

Ну да надо было здесь без рандома