Вывести на экран среднее арифметическое элементов массива - Pascal

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

2. Сгененировать случайным образом массив целых чисел из n элементов. n ввести со стандартного ввода. Вывести на экран среднее арифметическое элементов.

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

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

var a:array[1..100] of integer;
    n,i:integer;
    s:real;
begin
randomize;
write('Введите значение т от 1 до 100 n=');
readln(n);
writeln('Массив');
s:=0;
for i:=1 to n do
 begin
  a[i]:=random(50);
  write(a[i]:4);
  s:=s+a[i];
 end;
writeln;
s:=s/n;
writeln('Среднее арифметическое=',s:0:2);
end.

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

Объявляется массив a размерности от 1 до 100, содержащий целые числа: var a:array[1..100] of integer;
Объявляются переменные n и i как целые числа: n,i:integer;
Объявляется переменная s как вещественное число: s:real;
Генерируется случайное число для инициализации переменной n (количество элементов массива): randomize; write('Введите значение т от 1 до 100 n='); readln(n);
Выводится сообщение Массив
Инициализируется переменная s нулём: s:=0;
Создается цикл от 1 до n для заполнения массива a случайными числами и вычисления суммы элементов:
- Генерируется случайное число и сохраняется в элементе массива a с индексом i: a[i]:=random(50);
- Выводится текущий элемент массива с отступом 4: write(a[i]:4);
- К сумме s добавляется текущий элемент массива: s:=s+a[i];
После завершения цикла вычисляется среднее арифметическое элементов массива: s:=s/n;
Выводится сообщение Среднее арифметическое= с вычисленным средним значением с двумя знаками после запятой: writeln('Среднее арифметическое=',s:0:2);
Конец программы.