В целочисленом массиве A(35) найти количество нечетных элементов имеющих четные индексы. Считается что в массиве есть хотя бы один элемент, удовлетворяющий условию
Ответы
Ответ дал:
0
// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(35,-99,99); a.Println; // индексы от нуля!
Writeln('S=',a.Where((v,i)->i.IsEven and v.IsOdd).Sum)
end.
Пример
-71 65 -4 -59 -76 -8 -63 43 78 84 6 -59 26 -95 -80 99 67 11 -48 -35 38 -86 78 48 91 -91 78 2 96 83 25 2 -62 45 82
S=49
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(35,-99,99); a.Println; // индексы от нуля!
Writeln('S=',a.Where((v,i)->i.IsEven and v.IsOdd).Sum)
end.
Пример
-71 65 -4 -59 -76 -8 -63 43 78 84 6 -59 26 -95 -80 99 67 11 -48 -35 38 -86 78 48 91 -91 78 2 96 83 25 2 -62 45 82
S=49
Вас заинтересует
1 год назад
2 года назад
8 лет назад
8 лет назад
8 лет назад