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

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

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

mas - массив

for i:=1 to n do

s=mas[i];

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

s=s/20;

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

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

end.