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

Program sluch;
var
a: array [1..10] of integer;
i, s: integer;
begin
randomize;
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]gt;0 then s:=s+a[i];
writeln(Сумма положительных элементов массива одинакова: ,s);
readln;
end.

Чтоб заполнить массив, используем генератор случайный чисел random. Если в скобках у этой функции указать числовой параметр А, то она будет генерировать числа в диапазоне от 0 до А. Нам необходимо от -30 до 30. Для этого задаем random(60) и из полученных значений вычитаем 30, как бы сдвигая спектр на 30 единиц влево.