Дан массив состоящий из n (> 1) вещественных чисел.найти среднее арифметическое значение чисел массива

Решение задачи:Код написан в программе PascalABC.NET.Var a: array[1..100] of real; i,n: integer; sum, otvet: real;begin randomize; //подключение генератора произвольных чиселwrite(\'Введите размерность n = \');readln(n);write(\'Массив: \');sum:=0;for i:=1 to n do begin a[i]:=random(101)*random-50; //заполнение массива произвольными вещественными значениями write(a[i],\' \'); //вывод через пробел заполненного массива на экран в строчку sum:=sum+a[i]; end;writeln;otvet:=sum/n;writeln(\'Ответ: среднее арифметическое значение чисел массива = \',otvet); end.