Как работает эта программа на языке паскать ? 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.
Идёт цикл от 1 до n.
m[цикл] принимает значение до 101(Рандом), после выводится на экран.
Потом значение s=s+m[цикл]
конец;
потом a=s/n и выводится на экран в масштабе 2:3