Для заданного одномерного массива а[1..10] найти среднее значение всех его элементов

var s: real; i: byte; a: array [1..10] of integer; begin заполнение массива; for i:=1 to 10 do s:=s+a[i]; s:=s/10; end.