1)дан массив состоящий из 15 элементов ; найти сумму - вопрос №7969161115 от shkola56 26.11.2020 19:16

Question

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

shkola56 · Answer

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