смена знаков на противоположные

[kasperok96@mail.ru]

Написать программу, заменяя все отрицательные элементы массива на противоположных по Занки

[Mad_Cat]

for i:=1 to n do
a[i]:=abs(a[i]);