В одномерном массиве все отрицательные элементы увеличить в пять раз, а все положительные элементы уменьшить в два раза

...
for i:=1 to n do
if (a[i]<0) then a[i]:=a[i]*5 else a[i]:=a[i]/2;
...