Вводится последовательность из n произвольных чисел найти среднее значение положительных элементов последовательности. массив Паскаль

Далее, ЗАЧЕМ ее решать через какие-то процедуры и функции (про которые тоже ничего в вопросе не было), если она решается в одну строку? Чтобы длиннее и сложнее было?

Учитесь свои вопросы формулировать так, чтобы получив решение потом не писать, что "а мне не так надо!"

ну пожалуйста , очень надо

Сформулируйте нормально вопрос, выложите, как положено, тогда будет предмет для обсуждения

А так - ну с чего я буду делать то, чего даже в вопросе не написано? Чтобы ответ не соответствовал вопросу и объясняться потом с модераторами?

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018Внимание! Если программа не работает, обновите версию!begin  ReadSeqReal('=>',ReadInteger('n=')).Where(t->t>0).Average.Printlnend.Примерn= 8=> 3.16 0 -12.7 6 -19 0.082 7 -34.0605