На
Наталья
Циклом, естественно. Скажем, по i - i объявляется равной -100, затем каждый шаг цикла элемент a [ i + 101 ] приравнивается i и i увеличивается на единицу.
for k:=-100 to 100 do
a[ i ]:=k;
Если я правильно понял задачу
а я понял так a[ i ]:= random(201)-100