Question

1)дан массив состоящий из 15 элементов ;найти сумму тех чисел которые стоят на нечетных местах Решите срочнааааа

Answer 1

// PascalABC.NET 3.3, сборка 1541 от 29.09.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(15,-50,50); a.Println;
  Writeln('Сумма элементов на нечетных местах ',
      a.Where((x,i)->i.IsEven).Sum)
end.

Пример
48 -43 -46 37 34 41 30 47 26 -47 9 -43 -37 -45 2
Сумма элементов на нечетных местах 66