Matlab дан массив а(1xm). до первого положительного поменять знак на противоположный, остальные удвоить.

Function Untitled
m = 10;
A = randn(1, m);
i = 1;
tmp = 0;
(disp(A));
while i <= m
    if tmp == 0
       if A(1, i) > 0
           A(1, i) = A(1, i) * 2;
           tmp = tmp + 1;
       else
           A(1, i) = abs(A(1, i));
       end  
    else
        A(1, i) = A(1, i) * 2;
    end
    i = i + 1;
end
(disp(A));