n - количество элементов массива, после этого вводится каждый элемент.
var sum,n,i:integer;
a:array[1..100000] of integer;
begin
sum:=0;
readln(n);
for i:=1 to n do begin readln(a[i]); if(i mod 2 <> 0) then sum:=sum+a[i]; end;
writeln(sum);
end.
n - количество элементов массива, после этого вводится каждый элемент.
var sum,n,i:integer;
a:array[1..100000] of integer;
begin
sum:=0;
readln(n);
for i:=1 to n do begin readln(a[i]); if(i mod 2 <> 0) then sum:=sum+a[i]; end;
writeln(sum);
end.