Resposta:
O algoritmo solicitado em VisualG 3 está abaixo.
Espero ter ajudado :)
Explicação:
Algoritmo "10quadrados"
// Disciplina : [Linguagem e Lógica de Programação]
// Professor : Antonio Carlos Nicolodi
// Descrição : Aqui você descreve o que o programa faz! (função)
// Autor(a) : Nome do(a) aluno(a)
// Data atual : 05/02/2021
Var
// Seção de Declarações das variáveis
numeros: vetor [1..10] de real
quadrados: vetor [1..10] de real
c: inteiro
Inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
para c de 1 ate 10 passo 1 faca
escreva("Informe um valor ", c, "/10: ")
leia(numeros[c])
fimpara
para c de 1 ate 10 passo 1 faca
quadrados[c] <- numeros[c] ^ 2
fimpara
escreva("Números digitados: ")
para c de 1 ate 10 passo 1 faca
escreva(numeros[c], " ")
fimpara
escreval()
escreva("Quadrados dos números: ")
para c de 1 ate 10 passo 1 faca
escreva(quadrados[c], " ")
fimpara
escreval()
Fimalgoritmo
