Программа вычисления суммы элементов в одномерном массиве

// Пример программы на языке Паскаль.

var   i, sum, n : integer;           // объявляем переменные целочисленного типа.   arr : array of integer;       // объявляем массив.Begin    writeln(\'Введите размерность массива:\');       // вывод строки на экран.   read(n);                                                       // считываем размерность массива.   setlength(arr,n);                                          // выделяем память под массив.     for i:= 0 to (n-1) do                                 // начало цикла.      begin       arr[i] := random(-100, 100); // заполняем элемент массива числом из диапазона -100; 100.       sum := sum + arr[i]; // считаем сумму элементов массива.      end;   writeln(\'Сумма элементов в массиве равна: \', sum);       // вывод строки на экран.End.