Заполните массив случайными числами в интервале [0,100] и найдите среднее арифметическое его значений. Пример: Массив: 1 2 3 4 5 Среднее арифметическое 3.000 Язык програмирования паскаль

var m:array[1..10000] of integer; i,s,n:longint; a:real; begin randomize; writeln('Введите число элементов'); read(n); writeln('Массив:'); for i:=1 to n do  begin  m[i]:=random(101); write(m[i],' ');  s:=s+m[i];  end; a:=s/n; writeln('Среднее арифметическое: ',a:2:3); end.