var sum, i:integer; a: array[1..10] of integer; begin sum := 0; for i := 1 to 10 do begin readln(a[i]); if(i mod 2 = 0) then sum := sum + a[i]; end; writeln('Сумма нечетных элементов массива равна ', sum); end.