Вместо 10 подставляешь число элементов массива

var a:array[1..10] of integer;
sum,i:integer;
begin
Writeln('Zadayte massiv');
for i:=1 to 10 do
readln(a[i]);
sum:=0;
for i:=1 to 10 do
if i mod 2 0 then
sum:=sum+a[i];
writeln('Summa = ',sum);
end.

program picaso; uses crt;
type vector=array[1..100] of integer;
var a:vector;
    i,n,s:integer;
begin clrscr;
    writeln('n :');readln(n);
    for i:=1 to n do
    begin
        write('значение ',i,' : ');
        readln(a[i]);
    end;
    s:=0;
    for i:=1 to n do
        if i mod 2 0 then s:=s+a[i];
    
    writeln('сумму элементов массива, имеющих нечетное значение: ',s);
    
    readln;
end.