Question

ПОМОГИТЕ ПОЖАЛУЙСТА СРОЧНО!!!!
Написать программу в Pascal:
В одномерном МАССИВЕ введённом с клавиатуры определить сколько элементов имеет отрицательный индекс, сколько ненулевых элементов в массиве, рассчитать среднее значение положительных элементов.( Все эти условия должны быть в одной программе, и с помощью массива) СПАСИБО)))))

Answer 1

                                      PascalABC.NET

begin

 var mas := ReadArrInteger('Введите массив:',ReadInteger('N ='));

 Println(mas.Where(x -> x <> 0).Count, 'Не нулевых элемента');

 Print(mas.Where(x -> x > 0).Average, 'Ср.Арифм.')

end.

//"определить сколько элементов имеет отрицательный индекс", а вот это я не понимаю...Индексы же вроде как нумеруются с 0 и они отрицательными быть не могут. Может не правильно сформулировал, либо я туплю