summaryrefslogtreecommitdiff
path: root/37/CH6/EX6.3/s3.sci
blob: eb28ecbb7f94f1eb9c5910aa54ed37ede602a410 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
function[a1]=selection(a,n)
  i=n;
  while(i>=1)
    large=a(1);
    indx=1;
    for j=1:i
      if(a(j)>large)
        large=a(j);
        indx=j;
      end
    end
    a(indx)=a(i);
    a(i)=large;
    i=i-1;
  end
  a1=a;
  disp(a1,"Sorted array is:");
endfunction
//Calling Routine:
a=[23 21 232 121 2324 1222433 1212]
disp(a,"Given Array");
a1=selection(a,7)