т.к. число не дано, то объясню как. Пишешь число, например 110 в десятично системе счисления и делишь всё время на 2, пока не дойдёшь до единицы(1). В ответе указываются те числа, которые у тебя в остатке. И писать ответ нужно строго наоборот, т.е.
если у тебя остатки 101010111, то надо написать 111010101
Const n=12;
var c : array[1..n] of integer;
i : integer;
begin
writeln('Исходный массив:');
for i:=1 to n do begin
write('c[',i,']=');
readln(c[i]);
end;
writeln;
for i:=1 to n do write(c[i],' ');
end.
Пример:
<span>Исходный массив:
c[1]=15
c[2]=78
c[3]=20
c[4]=94
c[5]=37
c[6]=41
c[7]=72
c[8]=55
c[9]=86
c[10]=29
c[11]=89
c[12]=13
15 78 20 94 37 41 72 55 86 29 89 13</span>
Для выбора действий пользователя.Если бы не было меню,то все возможные действия программы вываливались на экран