Вывести сумму всех элементов массива, а затем их произведение - Pascal

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

1. Целочисленный массив заполняется случайными числами из заданного с клавиатуры диапазон. Вывести сумму всех элементов массива, а затем их произведение. 2. Целочисленный массив заполняется случайными числами из произвольного диапазона (выдумать его самостоятельно). Вывести диапазон на экран, затем вывести массив. Найти минимальный элемент массива и его номер (индекс) и вывести их следующим образом: а[m]="значение a[m]", где m - найденный номер минимального элемента.

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

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

type
  arr = array of integer;
 
var
  m: arr;
  i, n, summ, mult: integer;
 
begin
  Write('Введите размер массива: ');
  Readln(n);
  setlength(m, n + 1);
  
  randomize;
  for i := 1 to n do
    m[i] := random(100) - 20;// Диапазон чисел [-20;80]
  //Раскоментировать если нужно выводить массив на экран
  {For i:=1 to n do
  Write(m[i],'; ')}
  Writeln();
  
  summ := 0;
  mult := 1;
  
  for i := 1 to n do
  begin
    summ := summ + m[i];
    mult := mult * m[i];
  end;
  Writeln('Сумма элементов = ', summ);
  Writeln('Произведение элементов = ', mult);
end.

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

В начале объявляются необходимые переменные: тип данных arr, переменные m, i, n, summ и mult типа integer.
Пользователю предлагается ввести размер массива. Это значение сохраняется в переменной n.
С помощью функции setlength устанавливается длина массива m равной n + 1.
Функция randomize используется для инициализации генератора случайных чисел.
Запускается цикл for, который выполняется n раз. На каждой итерации значение i устанавливается равным 1, а значение m[i] присваивается случайное число в диапазоне от -20 до 80 (включительно).
Если требуется, то массив m может быть выведен на экран с помощью цикла for и функции Write.
После завершения цикла for переменные summ и mult инициализируются нулевыми значениями.
Запускается внутренний цикл for, который выполняется n раз. На каждой итерации переменные summ и mult обновляются: summ суммирует элементы массива m, а mult перемножает их.
По завершении внутреннего цикла for выводятся на экран результаты: сумма элементов массива и его произведение.
Конец программы.