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

0 голосов
118 просмотров

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


Информатика (134 баллов) | 118 просмотров
Дано ответов: 2
0 голосов
Правильный ответ

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


(142k баллов)
0 голосов

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.

(1.9k баллов)