Срочно решитее прошууу!!!!! Заполнить массив a[1..10] из десяти целых чисел от -30 до 30 с помощью датчика случайных

Program sluch;vara: array [1..10] of integer;i, s: integer;beginrandomize;for i:=1 to 10 do a[i]:=random(60)-30;for i:=1 to 10 do write(a[i],\' \');writeln;for i:=1 to 10 do if a[i]>0 then s:=s+a[i];writeln(\'Сумма положительных элементов массива равна: \',s);readln;end.Чтобы заполнить массив, используем генератор случайный чисел random. Если в скобках у этой функции указать числовой параметр А, то она будет генерировать числа в диапазоне от 0 до А. Нам нужно от -30 до 30. Для этого задаем random(60) и из полученных значений вычитаем 30, как бы сдвигая диапазон на 30 единиц влево.