{
iloczyn=1
nr_of_fields=0
for(i=1;i<=NF;i++){

    if($i ~ /^-*[1-9][0-9]*$/){
        iloczyn*=$i
        srednia[NR]+=$i
        nr_of_fields++
    }
}

    if(iloczyn < 0 && iloczyn%2==0){
        srednia[NR]/=nr_of_fields
    }
    else srednia[NR]=0
}

END{
    for ( x in srednia ) {
        if (srednia[x]==0)continue
        printf "w linii " x " srednia to " srednia[x]"\n"
    }
}