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

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

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.

◘Объективность информации. Например: "На улице холодно" - это субъективная информация. А "На улице -14°" - объективная (но не всегда точная)
◘Достоверность информации. Ин-фа достоверна, если отражает истинное положение дел. (объективная информация всегда достоверна)
◘Полнота информации. Информация полная, если ее достаточно для понимания и принятия решения.
◘Точность информации. Определяется степенью ее близости к реальному состоянию объекта, процесса, явления и т.д.
◘Актуальность информации – важность для настоящего времени.
◘Полезность информации.
 - Самая ценная информация – объективная, достоверная, полная, и актуальная.

тк Борисов жил с ученым из Ярославля, то Борисов не оттуда и не с Москвы и Санкт-Петербурга. следовательно, он с Новосибирска

Григорьев не Москвич и не с Ярославля. и теперь понятно, что не с Новосибирска. следовательно, он с Санкт-Петербурга

Егоров не с Москвы, остается один вариант, он с Ярославля

а Викторов значит с Москвы

можно сделать таблицу (по ней легко решать такие задачи):

                  Москва.   Новосиб.   С-п.   Ярославль.

Борисов.       -                 +               -              -

Викторов.     +                -                -              -

Григорьев.   -                 -                +             -

Егоров.         -                 -                -              +