Trabalho algotimo e programação

1. Ler um valor e escrever a mensagem É MAIOR QUE 10! se o valor lido for maior que 10, caso contrário escrever NÃO É MAIOR QUE 10!

R: algoritmo "Ex-01" var valor:inteiro inicio escreva ("Informe um valor: ") leia(valor) se (valor >10)entao escreva ("É maior que 10!") senao escreva ("Não é maior que 10!") fimse fimalgoritmo

2. Ler um valor e escrever se é positivo ou negativo (considere o valor zero como positivo).
Ler (Numero);
Imprima(Numero)
Se Numero > 0
Então: Imprima("O número é positivo")
Senão: Imprima("O número é negativo")
Fim-Se;

3. As maçãs custam R$ 1,30 cada se forem compradas menos de uma dúzia, e R$ 1,00 se forem compradas pelo menos 12. Escreva um programa que leia o número de maçãs compradas, calcule e escreva o custo total da compra.

Ler(Quantidade); Imprima(Quantidade); Se Quantidade < 12 Então : Imprima("Custo total = ", 1.30 * Quantidade ) Senão : Imprima("Custo total = ", 1.00 * Quantidade ) Fim-Se;

4. Ler as notas da 1a. e 2a. avaliações de um aluno. Calcular a média aritmética simples e escrever uma mensagem que diga se o aluno foi ou não aprovado (considerar que nota igual ou maior que 6 o aluno é aprovado). Escrever também a média calculada. Ler(Nota1,Nota2); Media = (Nota1 + Nota2) /2; Se Media < 7 Então : Imprima("Não aprovado, Media = ", Media ) Senão : Imprima("Aprovado, Media = ", Media ) Fim-Se; 5. Ler o ano atual e o ano de nascimento de uma pessoa. Escrever uma mensagem que diga se ela poderá ou não votar este ano (não é necessário