var a:array [1..100] of integer; i, n, sum:integer;
procedure average(k,s:integer);
var av:real;
begin
	av:=s/k;
	writeln('Среднее арифметическое элементов массива: ', av:3:2);
end;
    
begin
	randomize;
	n := random(100) + 1;
	sum := 0;
	for i:=1 to n do begin
		a[i]:=random(126)-50;
		sum := sum + a[i];
	end;
    
	average(n, sum);
end.