program sumaPeRangImpar;
var n, i, s:integer;
v:array[1..100]of integer;
begin
write('n='); read(n);
writeln('Introdu ',n,' numere intregi:');
s:=0;
for i:=1 to n do
begin
read(v[i]);
if i mod 2=1 then s:=s+v[i];
end;
writeln('Suma elementelor de pe pozitii impare: ',s);
end.
Explicație: