2. Дан
целочисленный массив с количеством элементов n. Напечатать те его элементы, индексы которых являются степенями
двойки (1,2,4,8,…). Задачу решить с использованием процедуры или функции.
Решение
program
lab2;
type
mas=array[1..200] of integer;
var
ar:mas;
i,n,
index:integer;
function
ind(id,j:integer):boolean;
var
k:integer;
a:real;
begin
k:=0;
a:=0;
ind:=false;
while a<=j do
begin
a:=exp(k*ln(id));
k:=k+1;
if round(a)=j then ind:=true;
end;
end;
begin
randomize;
writeln('Vvedite
n');
readln(n);
for i:=1
to n do
ar[i]:=random(100);
index:=2;
for i:=1
to n do
if ind(index, i) then writeln('a[',i,']=',ar[i]);
end.