Question

Criar um algoritmo que leia o nome, a idade e a nota de 10 pessoas.

Depois, ele deve imprimir o nome das pessoas que estiverem com a nota acima da média.

Answer 1

Ai tá em Portugol!

algoritmo "semnome"

procedimento cab()

inicio

Escreval("==========================")

Escreval("---ESCOLA DE ALGORITMOS---")

Escreval("==========================")

fimprocedimento

var

n:vetor[1..10] de caractere

id:vetor[1..10] de inteiro

nt:vetor[1..10] de real

c:inteiro

inicio

para c <-  1 ate 10 faca

cab()

  Escreva("Nome do ",c,"o aluno: ")

  leia(n[c])

  Escreva("Idade do ",c,"o aluno: ")

  leia(id[c])

  Escreva("Nota do ",c,"o aluno: ")

  leia(nt[c])

  limpatela

Fimpara

cab()

para c <-  1 ate 10 faca

  Se(nt[c] >=6) entao

     Escreval(n[c]," está acima da média!")

  fimse

fimpara

fimalgoritmo