Algoritmo " Vetor "

Faça um algoritmo em vetor de 1 ate 10 e imprima todos os números, a soma desses números, a media desses números, os números pares, os números ímpares e os números divisíveis por 3.


var
i: vetor[1..10] de inteiro
num, soma: inteiro
media: real

inicio
escreval ("DIGITE UM NUMERO")
para num de 1 ate 10 faca
leia(i[num])
soma <- soma + i[num]
media <- soma / 10
fimpara

escreval
para num de 1 ate 10 faca
escreval (i[num])
fimpara

escreval
para num de 1 ate 10 faca
se i[num] mod 2 = 0 entao
escreval ("NÚMERO: ",i[num]," é par")
senao
escreval ("NÚMERO: ",i[num], " É ÍMPAR")
fimse
se i[num] mod 3 = 0 entao
escreval ("[",i[num],"] É DIVISÍVEL POR 3")
fimse
fimpara

escreval
escreval ("TOTAL = ",soma)
escreval ("MÉDIA = ",media)

fimalgoritmo