Заполните массив случайными числами в интервале [0;100] и найдите его среднее арифметическое - Pascal ABC

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

СДЕЛАТЬ ЧЕРЕЗ CONST Заполните массив случайными числами в интервале [0;100] и найдите среднее арифметическое его значение Пример: массив: 1 2 3 4 5 среднее арифметическое 3.000

Решение задачи: «Заполните массив случайными числами в интервале [0;100] и найдите его среднее арифметическое»

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

const
  n = 5;
 
var
  a: array[1..n] of integer;
  i: integer;
  sr: real;
 
begin
  randomize;
  sr := 0;
  for i := 1 to n do
  begin
    a[i] := random(101);
    sr := sr + a[i];
  end;
  writeln(sr / n:8:2);
end.

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

В данном коде объявлены две переменные: n и a. Переменная n имеет значение 5, что означает, что будет создан массив из 5 элементов. Переменная a представляет собой массив целых чисел, который будет заполнен случайными числами в диапазоне от 0 до 100. Далее идет цикл for, который выполняется 5 раз (так как значение переменной n равно 5). Внутри цикла каждый элемент массива a[i] присваивается случайное число в диапазоне от 0 до 100 с помощью функции random(101). Затем значение переменной sr инициализируется как сумма всех элементов массива a. После завершения цикла, значение переменной sr делится на количество элементов массива a (в данном случае 5) и выводится на экран с помощью функции writeln. Значение переменной sr / n:8:2 означает, что выводится десятичное представление результата деления с точностью до двух знаков после запятой.