Сформулировать массив из n случайных чисел на промежутке [-60; 60]. найти сумму чисел больших нуля

var

i, sum1, n : integer; / / объявляем переменные целочисленного типа.

arr : array of integer; / / объявляем массив.

Begin

writeln ('Введите размерность массива:'); / / вывод строки на экран.

read (n); / / считываем размерность массива.

setlength (arr, n); / / выделяем память под массив.

for i: = 0 to (n-1) do / / начало цикла.

begin

arr[i] : = random (-60, 60); / / заполняем элемент массива числом из диапазона - 60; 60.

if (arr[i] > 0) then sum1 : = sum1 + arr[i]; / / считаем сумму положительных элементов.

end;

writeln ('Сумма положительных чисел массива равна:', sum1); / / вывод строки на экран.

End.