Вычислить сумму элементов массива - Pascal (80322)

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

Вычислить сумму элементов массива, заполненного случайными числами из интервала [-50; 50].

Желательно с подпрограммами!!

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

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

Const n = 64; //Количество элементов массива
 
var a: array[1..n] of Integer;
    i, s: Integer;
 
Begin
  Randomize;
  For i := 1 to n do
    begin
      a[i] := -50 + Random(101);
      Write('a[', i, '] = ', a[i]:4);
      s := s + a[i]
    end;
  WriteLn;
  WriteLn('Сумма = ', s);
  ReadLn
end.

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

n = 64 // Количество элементов массива
a: array[1..n] of Integer; // Объявление массива a из 64 элементов типа Integer
i, s: Integer; // Объявление переменных i и s типа Integer
Randomize; // Инициализация генератора случайных чисел
For i := 1 to n do // Цикл от 1 до 64
a[i] := -50 + Random(101); // Присвоение элементу массива a[i] случайного значения в диапазоне от -50 до 50
Write('a[', i, '] = ', a[i]:4); // Вывод индекса элемента массива и его значения
s := s + a[i] // Подсчет суммы значений элементов массива
WriteLn; // Перевод строки
WriteLn('Сумма = ', s); // Вывод суммы значений элементов массива
ReadLn // Ожидание ввода пользователя Этот код создает массив из 64 элементов типа Integer и заполняет его случайными значениями в диапазоне от -50 до 50. Затем код выводит значения элементов массива и их сумму.