Вычислить среднее значение элементов массива - PascalABC.NET

Формулировка задачи:

Дорогие, помогите, пожалуйста исправить и доделать: сгенерировать и вывести массив из 100 элементов со значениями в пределах [0;100]. Вычислить среднее значение элементов и среднеквадратическое отклонение от него.

                    Листинг программы
                
 
                        
                          
                    
Program Massivl; 
const N=100; 
var 
s: real;
A: array [1..N] of integer; 
i,j: integer; 
begin 
Randomize; 
for i:=1 to N do 
A[i]:=Random(100); 
writeln('Введенный массив:'); 
for i:=1 to N do 
write(A[i]:4); 
s:=s/100; 
writeln(s); 
end.

#== Подскажите, пожалуйста, подробный алгоритм составления перестановок по этой программе:

                    Листинг программы
                
 
                        
                          
                    
program recursia;
const m = 1;
const n=5; 
var a : array[m..n] of integer;
i1 : integer;
procedure generate (l,r : integer);
var i,v : integer;
begin
if (l=r) then
begin
for i:=1 to n do
write(a[i],' ');
writeln;
end
else
begin
for i := l to r do
begin
v:=a[l]; a[l]:=a[i]; a[i]:=v; 
generate(l+1,r); 
v:=a[l]; a[l]:=a[i]; a[i]:=v; 
end;
end;
end;
 
begin
for i1 := 1 to N do 
A[i1]:=i1; 
 
generate(1, n);
readln;
end.

Решение задачи: «Вычислить среднее значение элементов массива»

Листинг программы

const n=100;
var
sa,sk: real;
a: array [1..n] of integer;
i,j: integer;
begin
randomize;
writeln('Введенный массив:');
sa:=0;
for i:=1 to n do
 begin
  a[i]:=random(101);
  write(a[i]:4);
  if i mod 20=0 then writeln;
  sa:=sa+a[i];
 end;
writeln;
sa:=sa/n;
writeln('Среднее арифметическое=',sa:0:2);
sk:=0;
for i:=1 to n do
sk:=sk+sqr(a[i]-sa);
sk:=sqrt(sk/(n-1));
writeln('Среднеквадратичное отклонение=',sk:0:2);
end.

Объяснение кода листинга программы

Введенные переменные:
- n = 100 (количество элементов в массиве)
- sa, sk = 0 (для хранения суммы и среднеквадратичного отклонения)
- a = array [1..n] of integer (массив для хранения чисел)
- i, j = 0 (для контроля цикла)
Заполнение массива a случайными числами от 0 до 100
Вывод каждого элемента массива a в консоль с пробелом в качестве разделителя
Расчет суммы всех элементов массива a и сохранение ее в переменной sa
Деление суммы на количество элементов массива a для получения среднего арифметического
Вывод среднего арифметического на экран
Расчет среднеквадратичного отклонения путем вычисления разницы между каждым элементом массива a и средним значением
Возведение разницы в квадрат и суммирование всех полученных значений
Деление полученной суммы на количество элементов массива a минус 1 для получения среднеквадратичного отклонения
Вывод среднеквадратичного отклонения на экран