Здравствуйте, angel.nero.

В приложении решение Вашей задачи.
Удачи!

Приложение:
const
n=10;
var
c,y:real;
x:array[1..n]of boolean;
k:integer;
begin
{создаем Х-массив и выводим его на экран}
writeln('X-array:');
randomize;
for k:=1 to n do
begin
x[k]:=odd(random(5*n));
write(x[k]:6);
end;
{вводим число С}
writeln;
write('Enter C:');
readln(c);
k:=1;
y:=1;
{считаем степень}
while (x[k])and(k<=n)do
begin
y:=y*c;
inc(k);
end;
{выводим результат}
write('Y:=',y:10:5);
readln;
end.