Помогите мне не умному...

[mdn59]

Дана последовательность целых чисел, за которой следует 0. Найти сумму элементов с нечетными номерами из этой последовательности.

[DM_bite]

program Xs;
var n,k,sum: integer;
    begin
    k:= 1;
    repeat
    begin
    ReadLn(n);
    if k mod 2 <>0 then inc(sum, n);
    inc(k);
    end;
    until n=0;
    WriteLn(sum);
    ReadLn;
    end.

Как-то так.

[Utkin]

Сканируешь в цикле свой массив.

Mas: array [1..n] of Integer;
Sum, i: Integer;

.....

// Здесь вставляешь операции по вводу элементов массива

....

for i:=1 to n do
begin
    if i mod 2 = 1 then
    begin
          sum:=sum+Mas[i];
    end;
end;

.....

// Здесь вставляешь операцию по выводу суммы

Примерно таким образом. Код на Делфи, потому как устал уже все повторять, что если пишите в этом разделе указывайте язык программирования. Может тебе на Lisp надо, а я сегодня телепатией не занимаюсь - карму в тролейбусе отдавили.