summaryrefslogtreecommitdiff
path: root/37/CH7/EX7.1/s1.sci
blob: 5843c042492b2725f9b5e640723b71f641b7e92c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
function[]=search(a,n,ele)
  i=1;
  j=0;
  for i=1:n
    if(a(i)==ele)
      printf("Found %d AT %d\n",ele,i);
      j=1;
    end
  end
  if(j==0)
    disp("%d NOT FOUND",ele);
  end
endfunction
//Calling Routine:
a=[2 33 22 121 23 233 222]
disp(a,"Given array");
search(a,7,23)