Для массива x(20) имеющего положительные элементы, вычислите среднее арифметическое положительных элементов массива.(можно с подробным решением? методические указания )

заводишь цикл

s-сумма элементов в массиве

mas- массив

for i:=1 to n do

s=mas[i];

Ище среднее арифмитическое

s=s/20;

write("Среднее арифметическое равно",s);

readkey;(чтобы на экране задержалось)

end.