Одномерный массив из N элементов. Найти сумму элементов массива с четными номерами.

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

// PascalABC.NET 3.2, сборка 1379 от 21.01.2017 // Внимание! Если программа не работает, обновите версию! begin   var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;   Writeln('Sчет=',a.Where((x,i)->i.IsOdd).Sum) end. Пример n= 15 10 -12 -5 65 -39 -76 -38 -68 69 87 94 11 -61 -2 -13 Sчет=5