If a [I ] < 0 then a[I ]:= a [I]×a [I];
а по подробнее можно?
создаешь массив А, дальше цикл от и=1 до длины массива, и в цикле делаешь, то что я написал