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

varm:array[1..10000] of integer;i,s,n:longint;a:real;beginrandomize;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.