заводишь цикл
s-сумма элементов в массиве
mas- массив
for i:=1 to n do
s=mas[i];
Ище среднее арифмитическое
s=s/20;
write("Среднее арифметическое равно",s);
readkey;(чтобы на экране задержалось)
end.
