Faça um algoritmo que leia a nota de 10 alunos de uma turma e guarde-as em um vetor. No final, mostre - Lista de Exercícios Resolvidos de VB.NET

Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    ' variáveis usadas na resolução do problema
    Dim notas(9) As Double
    Dim soma, media, maior As Double
    Dim quant_acima_media As Integer

    ' vamos efetuar a leitura das 10 notas dos alunos
    For i As Integer = 0 To notas.GetUpperBound(0)
      Console.Write("Informe a " & (i + 1) & ".a nota: ")
      notas(i) = Double.Parse(Console.ReadLine())
    Next

    ' vamos efetuar os cálculos
    maior = notas(0)
    soma = 0.0
    quant_acima_media = 0
    For i As Integer = 0 To notas.GetUpperBound(0)
      ' a nota atual é maior que a nota que temos
      If notas(i) > maior Then
        maior = notas(i)
      End If

      ' vamos somar mais esta nota
      soma = soma + notas(i)
    Next

    ' calcula a média da turma
    media = soma / notas.Length

    ' vamos contar os alunos acima da média
    For i As Integer = 0 To notas.GetUpperBound(0)
      ' esta nota está acima da média?
      If notas(i) > media Then