Найти среднее арифметическое положительных чисел, стоящих на нечетных местах, и подсчитать количество чисел, меньших N

begin
  var a:=ArrRandomInteger(20,-10,10);
  a.Println;
end.

begin
  var a:=ArrRandomInteger(20,-10,10);
  a.Println;
  a.Where((x,i)->odd(i) and(x>0)).Println;
end.

begin
  var a:=ArrRandomInteger(20,-10,10);
  a.Println;
  a.Where((x,i)->not odd(i) and(x>0)).Println;
end.

begin
  var a:=ArrRandomInteger(10,-10,10);
  a.Println;
  var b:=a.Where((x,i)->odd(i) and(x>0)).Println;
  if b.Count>0 then
  else
    'Нет чисел, удовлетворяющих условию.'.Println;
end.

begin
  var a:=ArrRandomInteger(20,-10,10);
  a.Println;
  var b:=a.Where((x,i)->odd(i) and(x>0)).Println;
  if b.Count>0 then
    b.Average.Println
  else
    'Нет чисел, удовлетворяющих условию.'.Println;
end.

begin
  var a:=ArrRandomInteger(20,-10,10);
  a.Println;
  var b:=a.Where((x,i)->odd(i) and(x>0)).Println;
  if b.Count>0 then
    b.Average.Println
  else
    'Нет чисел, удовлетворяющих условию.'.Println;
  var n:=ReadInteger;
  a.Count(x->x<n).Println;
end.