Одномерный массив

[Горящее сердце]

Посмотрите пожалуйста 5 вариант!!!!

[RUSt88]

могу выполнить за вознаграждение

[DoDge_VipeR]

for i:=1 to n do 
if (5-3*q[i]>0) then write(q[i]:6);

тьфу это ж 8)))

[Ol'ga_new]

Думаю должно получиться (это 5 вариант):

function st(k:word):integer;
var i:word;
begin
i:=2;
z:=2
if k>1 then
while i<=k do
begin
z:=z*2;
i:=inc(i);
end;
st:=z;
end;

function fakt(k:word):integer;
var i:word;
begin
for i:=1 to k do
  fakt:=fakt*i;
end;

.....

for k:=1 to n do
 if (a[k]>st(k)) and (a[k]<fakt(k)) then
    kol:=inc(kol);
....

в переменной kol-количество чисел в последовательности удовлетворяющих условию!

[DoDge_VipeR]

вот 5 вариант)

col:=0;
st2:=2;
f:=1;
for i:=1 to n do
begin
if (a[i]>st2) and (a[i]<f) then col:=col+1;
st2:=st2*2;
f:=f*i;
end;

[RUSt88]

kol:=inc(kol);

не, я понимаю, что программист может все, но чтобы так..