Помогите решить задачу в Pascal Дан массив целых чисел, состоящий из 30 элементов. Заполнить его датчиком случайных чисел. Найти сумму отрицательных элементов.
какой диапазон рандомных чисел?
Var n,sum:integer; arr: array [0..30] of integer; begin sum:=0; randomize; for n:=0 to 29 do begin arr[n]:=random(1000)-500; if (arr[n]<0) then sum:=sum+arr[n];<br> end; writeln('сумма отрицательных чисел = ',sum); end.