Как найти среднее арифметическое в одномерном массиве, если включен генератор случайных чисел?

var a:array[1..20] of integer;i:integer;sr:real;beginfor i:=1 to 20 do begina[i]:=random(-20,20);sr+=a[i];write(a[i],' ');end;writeln;write(sr/20:3:2);end.