Pela forma da questão eu imagino que seja em Portugol. Era possível fazer com somente 1 para, porém para fins didáticos eu resolvi fazer com 2, vamos lá:

Algoritmo "nome"

  var

     vet:vetor[1..10] de inteiro // Declarando um vetor de 10 posições

     i, soma, prod:inteiro

  inicio

     soma:=0

     prod:=1 // Qualquer valor multiplicado por 0 dá 0

     para i:=1 ate 10 faca

        escreva("Digite o",i,"° número: ")

        leia(vet[i]) // Armazenar os 10 números no vetor

     fimpara

     para i:=1 ate 10 faca

        se (i%2=0) entao // Verifica se a posição é par

           soma:=soma+vet[i] // Soma recebe o valor antigo mais o valor do vetor na posição

        senao // Se nao for par, automaticamente é impar

           prod:=prod*vet[i] // Prod recebe o valor antigo vezes o valor do vetor na posição

        fimse

     fimpara

     escreval("Soma:",soma)

     escreval("Produto:",prod)

fimalgoritmo