Algorítmo e programação

LISTA 7
Algoritmos e Programação

algoritmo "Lista7_Exe1"
// Objetivo : Armazenar 10 nomes no vetor NOME e imprimir uma listagem numerada.
// Entrada : 10 nomes.
// Saída : Listagem numerada com 10 nomes.

var i, cont: inteiro nome: vetor[1..10] de caracter

inicio para i de 1 ate 10 faca escreva("Digite um nome: ") leia(nome[i]) fimpara para i de 1 ate 10 faca cont <- cont + 1 escreva(cont, "- ", nome[i]) fimpara fimalgoritmo

algoritmo "Lista7_Exe2"
// Objetivo : Armazenar 15 números inteiros em um vetor NUM e imprimir uma
//listagem numerada contendo uma das mensagens: par ou ímpar.
//Entrada: 15 numeros.
// Saída : Listagem numerada com o 15 números e a informação se é para ou ímpar.

var i, cont: inteiro num: vetor[1..15] de inteiro

inicio para i de 1 ate 15 faca escreva("Digite um número: ") leia(num[i]) fimpara para i de 1 ate 15 faca cont <- cont+1 se num[i] mod 2 = 0 entao escreval(cont, "-", " O número ",num[i], " é par!") senao escreval(cont, "-", " O número ",num[i], " é ímpar!") fimse fimpara fimalgoritmo algoritmo "Lista7_Exe3"
// Objetivo : Armazenar 8 números em um vetor e imprimir todos os números
// múltiplos de 5.
// Entrada: 8 números.
// Saída : Múltiplos de 5.

var i: inteiro num: vetor [1..8] de inteiro

inicio para i de 1 ate 8 faca escreva("Digite um número: ") leia(num[i]) fimpara para i de 1 ate 8 faca se num[i] mod 5 >= 1 entao escreval(" ") senao escreval(" ", num[i]," é múltiplo de 5!") fimse fimpara fimalgoritmo algoritmo "Lista7_Exe4"
// Objetivo : Armazenar nomes e notas da prova A1 e prova A2 de 15 alunos.
//Calcular a média e imprimir uma listagem contendo nome, média e situação de
//cada aluno.
// Entrada: Nomes e notas.
// Saída : Média e situação de cada aluno.

var i:inteiro A1, A2, media: vetor[1..15] de real nome: vetor[1..15] de caracter

inicio para i de 1 ate 15 faca escreva("Digite o nome do(a) aluno(a): ")