(пожалуйста помогите )
заполнить массив из 12 элементов случайными числами от -20 до 10. вынести индексы отрицательных элементов.

спасибо огромное

не работает

Все работает http://s017.radikal.ru/i421/1504/5b/1ddeb5ac4bd3.png

varn: array[1..12] of integer;i: integer;beginfor i:=1 to 12 dobeginn[i]:=random(31)-20;writeln('n[', i, '] = ', n[i]);end;for i:=1 to 12 doif n[i]<0 then write(i, ' ');end.