Programa Em Pascal

4) Crie um algoritmo que solicite ao usuário a quantidade de alunos em uma determinada sala de aula, em seguida, através de um laço while, solicite ao usuário que entre com as notas de todos os alunos da sala, um por vez. No final o programa deverá mostrar a média aritmética das notas inserida pelo usuário.

Program exercicio04; {Nome do programa}

var {Comando usado para declarar as variáveis}

i, quant, total, nota : integer; {Declaração de quatro variáveis do tipo inteiro}

media : real; {Declaração de uma variável do tipo real}

Begin {Início do programa}

i := 1; {Inicialização da variável i}

media := 0; {Inicialização da variável media}

total := 0; {Inicialização da variável total}

writeln(' Informe a quantidade de alunos na sala de aula: '); {Irá imprimir na tela a seguinte frase: Informe a quantidade de alunos na sala de aula}

readln(quant); {Recebe o valor informado pelo usuário e aloca o valor na variável quant}

while (i <= quant) do {Comando while usado para repetir uma determinada sequencia de comando nesse c c caso enquanto o valor alocado na variável i for menor ou igual ao valor alocado na v v variável quant}

begin {Início da sequencia de comandos}

write(' Informe a nota do aluno ',i,': '); {Irá imprimir na tela a frase: informe a nota do aluno, em sequencia ira imprimir também o v v valor alocado na variável i seguido de dois pontos}

readln(nota); {Recebe o valor informado pelo usuário e aloca o valor na variável nota}

total := total + nota; {A variável total irá receber o valor alocado na variável total somado ao valor alocado na v v v variável nota}

i := i + 1; {Incremento da variável i}

end; {Fechamento da sequencia de comandos}

media := total / quant; {A variável media irá receber o valor alocado na variável total e dividi-lo pelo valor alocado n na variável quant}

clrscr; {Limpar a tela}

writeln(' A media de nota da sala he: ',media:2:1); {Irá imprimir na tela a seguinte frase: a media de nota da sala he:, seguida do valor a a a a a alocado na variável media, onde só será permitido dois números antes da vírgula e um n n numero após a vírgula}

End. {Término do programa}