вычислите сумму элементов массива из 10 целых чисел,стоящих на нечетных местах(в паскаль)
Answers & Comments
SanGreen74
// PascalABC.NET 3.0, сборка 1144 от 16.01.2016 begin var a:=ArrRandom(10,-5,15); a.Println; Writeln('Сумма элементов с нечетными индексами равна ', Range(0,9,2).Select(i->a.ElementAt(i)).Sum) end.
Тестовое решение: 11 -3 3 8 8 14 8 12 15 2 Сумма элементов с нечетными индексами равна 45
Answers & Comments
begin
var a:=ArrRandom(10,-5,15); a.Println;
Writeln('Сумма элементов с нечетными индексами равна ',
Range(0,9,2).Select(i->a.ElementAt(i)).Sum)
end.
Тестовое решение:
11 -3 3 8 8 14 8 12 15 2
Сумма элементов с нечетными индексами равна 45