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

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

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.