Question

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

Answer 1

// 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

Answer 2

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.