[rgl]

var massiv = ["яблочный пирог", "соус_острый", "яблоки_красные"];

function findPartial( a, s )
{
  for( var i = 0; i < a.length; ++i )
    if( a[i].indexOf( s ) >= 0 )
      return i;
  return -1;
}

alert( findPartial( massiv, "яблок" ) );