Дан массив размера N.найти среднее арифметическое всех элементов.
Помогите пожалуйста 30 баллов даю

var sum,n,i,k:integer;

a:array[1..100000] of integer;

begin

sum:=0;

k:=0;

readln(n);

for i:=1 to n do begin readln(a[i]); sum:=sum+a[i]; k:=k+1; end;

writeln(sum/k);

end.