Вычислите сумму элементов массива из 10 целых чисел,стоящих на нечетных местах(в паскаль)

Вычислите сумму элементов массива из 10 целых чисел,стоящих на нечетных местах(в паскаль)
Гость
Ответ(ы) на вопрос:
Гость
var a:array [1..10] of integer;  i,sum:integer;  begin  sum:=0;  writeln('Введите элементы массива');  for i:=1 to 10 do begin  read(a[i]);  if i mod 2<>0 then sum:=sum+a[i];  end;  writeln(sum);  end.
Гость
// 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
Не нашли ответ?
Ответить на вопрос
Похожие вопросы