Сделать в Basic.
В последовательности из N чисел найти:
a) Средние арифметическое из этих чисел
б) количество чисел >0