Авдеевич
6 год назад
Найти сумму индексов нечетных т элементов массива.
ОТВЕТЫ
Максимилианович
Jul 26, 2019
// PascalABC.NET 3.2, сборка 1338 от 16.11.2016
begin
var a:=ArrRandom(ReadInteger(n=),1,50); a.Println;
var s:=0;
for var i:=0 to a.Length-1 do
if a[i].IsOdd then s+=i+1;
Writeln(Сумма индексов нечетных элементов равна ,s)
end.
Пример
n= 13
30 22 20 40 37 11 12 44 31 46 37 4 44
Сумма индексов нечетных элементов равна 31
begin
var a:=ArrRandom(ReadInteger(n=),1,50); a.Println;
var s:=0;
for var i:=0 to a.Length-1 do
if a[i].IsOdd then s+=i+1;
Writeln(Сумма индексов нечетных элементов равна ,s)
end.
Пример
n= 13
30 22 20 40 37 11 12 44 31 46 37 4 44
Сумма индексов нечетных элементов равна 31
162
