Дан массив размера 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.