Погогите написать програмку на Turbo Pascal

[Mystic]

Помогите написать программку на Pascale, где в случайно заданном массиве будут заменяться знаки элементов массива на противоположные. А то тут знакомому понадобилось, а я паскаль года 4 назад проходил. Уже не помню.

[xRay]

что значит на противоположные? в контексте случайных знаков...

 

Постановка задачи хромает на все 4 ноги

[Arhar]

студент блин, проходил блин, 4 недели назад блин, а теперь контрольную надо сдавать

[Kvendi]

for i:=0 to length(element)-1 do

element:=element-(element*2);