clc
clear all
% sorting a vector
disp('Sorting a vector')
% example 1
% find largest element, move to end, repeat
disp('Example 1')
disp('Moving the largest element in vector')
a=[4 -5 12 -7 19 -13 3];
orig=a;
n=length(a);
for i=1:1:n-1
    if a(i)>a(i+1)
        a(i+1)=a(i);
        a(i)=a(i+1);
    end
end
disp('starting vecotr:')
disp(orig)
disp('Ending vector')
disp(a)

% example 2
disp('Example 2')
disp('fixing the above problem')
% dont drop any elements
a=[4 -5 12 -7 19 -13 3];
orig=a;
n=length(a);
for i=1:1:n-1
    if a(i)>a(i+1)
        temp=a(i);
        a(i)=a(i+1);
        a(i+1)=temp;
    end
end
disp('starting vecotr:')
disp(orig)
disp('Ending vector')
disp(a)