Задан массив а, состоящий из 11 чисел. найти среднее арифметическое его элементов. элементы массива – случайные числа на отрезке [-11,5].

Var a:array[1..11] of integer;i:integer;k,ar:real;beginrandomize;for i:=1 to 11 do begina[i]:=-11+random(17);write(a[i]:3);end;writeln;k:=0; ar:=0;for i:=1 to 11 dok:=k+a[i];ar:=k/11;writeln(ar);end.