f1<-function(a)
{
   for(i in 1:nrow(a))
   {
     for(j in 1:ncol(a))
      {

       max=a[1,1]
     if(a[i,j]>max)
     max<-a[i,j]

     }
   }

print(max)
}