Если поставить A[i]:=A[i]*max, то ситуация не решается, все также при "if i mod 2=1" умножаются все элементы, а при "if i mod 2=0" прога выдает мне введенный массив без изменений......мда....может надо как-нибудь по-другому сделать данное преобразование, например, через функцию?