Помогите решить задачу, пожалуйста!

[Elizaveta]

Пожалуйста, помогите!!! Необходимо получить последовательность В1, В2, ..., Вn, n<=50, если Bk=2^(-k), если k-нечетно и Bk=k, если k-четно. Среди элементов с нечетными номерами определить количество элементов, которые меньше заданной величины А, и найти их сумму.

[lexus_ilia]

что-то типа такого...

Program xa;
Var
 b:array[1..50] of real;
 n,i,j:integer;
 a,s:real;

function cten(k:integer):real;
 var
  l:real;
 begin
 l:=1;
 for i:=1 to k do
  l:=l*2;
 cten:=l;
end;

begin
 Writeln('BBedute n');
 readln(n);
 for i:=1 to n do
  if i mod 2=0 then
   b[i]:=i
  else
   b[i]:=1/cten(i);
 Writeln('BBedute A');
 readln(a);
 i:=1;
 s:=0;
 j:=0;
 While i<=n do
 begin
  if b[i]<a then
  begin
   s:=s+b[i];
   inc(j)
  end;
  inc(i,2);
 end;
 Writeln('KoLu4ecTBo eleMeHTOB < ' ,a:6:5, ' ' ,j, 'LLItyk');
 Writeln('Cymma elemeHTOB= ' ,s:10:9);
 readln
end.

тут нету вывода массива на экран, т.к. в задании не сказано, но если хочешь что-бы вывод на экран был, то перед строкой

Writeln('BBedute A');

напиши

for i:=1 to n do
 Write(b[i]:10:5);
Writeln;