Как работает эта программа на языке паскать ? 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.