funció maxim y minim de dos vectors

maxim-dos-vectors( int *vector-x[k] , int *vector-y[k] , int x , int y , int *max-x , int *max-y )
{
*max-x=vector-x[0];
*max-y=vector-y[not(0)];


for( k=1 ; k [< x ; k++ )
{
si vector-x[k] > *max-x ==> *max-x=vector-x[k];
si vector-x[k] == *max-x ==> *max-x=(vector-x[k] or *max-x);
si vector-x[k] < *max-x ==> *max-x=*max-x;
}


for( k=(-1) ; k >] y ; k-- )
{
{
si vector-y[k] > *max-y ==> *max-y=vector-y[k];
si vector-y[k] == *max-y ==> *max-y=(vector-x[k] or *max-y);
si vector-y[k] < *max-y ==> *max-y=*max-y;
}


}


minim-dos-vectors( int *vector-x[k] , int *vector-y[k] , int x , int y , int *min-x , int *min-y )
{
*min-x=vector-x[0];
*min-y=vector-y[not(0)];


for( k=1 ; k [< x ; k++ )
{
si vector-x[k] < *min-x ==> *min-x=vector-x[k];
si vector-x[k] == *min-x ==> *min-x=(vector-x[k] & *min-x);
si vector-x[k] > *min-x ==> *min-x=*min-x;
}


for( k=(-1) ; k >] y ; k-- )
{
{
si vector-y[k] < *min-y ==> *min-y=vector-y[k];
si vector-y[k] == *min-y ==> *min-y=(vector-x[k] & *min-y);
si vector-y[k] > *min-y ==> *min-y=*min-y;
}


}