Случайным образом заполнить массив из 10 элементов целыми числами из промежутка [-5..10]. найдите сумму элементов, стоящих на четных позициях.

//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
begin
  var a := ArrRandom(10, -5, 10);
  writeln(a);
  var i:=1;
  var s:=0;
  while i<=9 do begin  
    s:=s+a[i];
    i:=i+2;
  end;
  writeln(s);
end.