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')
tic
a=[4 -5 12 -7 19 -13 3];
orig=a;
n=length(a);
disp('input vector:')
disp(orig)
% code
for j=1:1:(n-1)
    for i=1:1:(n-1)
        if a(i)>a(i+1)
            temp=a(i+1);
            a(i+1)=a(i);
            a(i)=temp;
        end
    end
end
disp('output')
disp(a)
toc