Среднее значение элементов и среднеквадратическое отклонение от него - 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.

Решение задачи: «Среднее значение элементов и среднеквадратическое отклонение от него»

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

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 = real (для хранения среднего значения и среднеквадратичного отклонения соответственно)
- a = array [1..n] of integer (массив для хранения чисел)
- i, j = integer (для обозначения индексов массива)
Задается начальное значение для генератора случайных чисел с помощью функции randomize.
Выводится сообщение Введенный массив: и происходит инициализация суммы элементов массива sa = 0.
Происходит заполнение массива a случайными числами от 0 до 100 с помощью цикла for и функции random(101).
- Каждое число выводится на экран с помощью функции write(a[i]:4).
- Если индекс делится на 20 без остатка, то выводится перевод строки с помощью функции writeln.
- Каждое сгенерированное число прибавляется к сумме элементов массива sa.
После заполнения массива выводится сообщение с суммой элементов массива sa, которая является средним арифметическим.
Происходит инициализация суммы квадратов разностей элементов массива sk = 0.
Происходит расчет среднеквадратичного отклонения с помощью цикла for и функции sqr(a[i]-sa).
- Каждое значение квадрата разности прибавляется к сумме квадратов разностей массива sk.
После расчета среднеквадратичного отклонения выводится сообщение с его значением.