(пожалуйста помогите ) заполнить массив из 12 частей случайными числами от

Program fds; var A: array [1..100] of integer; i: integer; begin randomize; n:=12; for i:=1 to n do A[i]:=random(31)-20; writeln(); for i:=1 to n do if A[i]lt;0 then write(i, ); readln; end. Чтобы генерировать случайные числа из спектра от -20 до 10 необходимо сделать последующее. Смотрим, какова длина подходящего нам интервала - 20 отрицательных и 10 положительных, 0 - 31 число. Задаем функцию random от параметра 31 - random(31) - она будет генерировать числа от 0 до 31. И потом вычитаем из этой функции 20, чтобы "сдвинуть" весь просвет на лево по числовой оси на 20 значений. Таким образом получим нужный спектр.