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

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

mas- массив

for i:=1 to n do

s=mas[i];

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

s=s/20;

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

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

end.