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.