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

[WaK]

Помогите решить задачу на одномерный массив. Никак не получается.

Задана последовательность N вещественных чисел. Вычислить сумму чисел, порядковые номера которых являются нечётными числами.

[Ghost3]

На каком языке?
Данные вводятся с клавиатуры или считываются с файла?

[Abstraction]

Кто хочет - тот получит.

int main(void){
  size_t t=0; for(char* c = "Enter number of elements:"; *c; ++c) printf("%c", *c);
  double s, a,*pa=&a,v; if(scanf("%u", &t) != 1) return 1; else for(s=t^t; t; t-=2)
  {scanf("%lf", pa); s+=t==1?a:(a+scanf("%lf", &v)-1);} printf("Total sum is: %lf", s);
  return 0;
}

[WaK]

Сообщение от Ghost3

На каком языке?
Данные вводятся с клавиатуры или считываются с файла?

Извините, забыл.
Паскаль.
Данные вводятся с клавиатуры.

[Ghost3]

С массивом так с массивом, что-то типо этого, посмотрите, если что подправьте меня/допилите под себя

var
n,i,sum:integer;
a:array[1..256]of integer;
begin
read(n);
sum:=0;
for i:=1 to n do
 begin
 read(a[i]);
 if (i mod 2) <> 0 then sum:=sum+a[i];
 end;
writeln (sum);
end.

[WaK]

Сообщение от Ghost3

С массивом так с массивом, что-то типо этого, посмотрите, если что подправьте меня/допилите под себя

var
n,i,sum:integer;
a:array[1..256]of integer;
begin
read(n);
sum:=0;
for i:=1 to n do
 begin
 read(a[i]);
 if (i mod 2) <> 0 then sum:=sum+a[i];
 end;
writeln (sum);
end.

Спасибо