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

Informe a 1.a nota: 9
Informe a 2.a nota: 7.5
Informe a 3.a nota: 8
Informe a 4.a nota: 6.5
Informe a 5.a nota: 9.2
Informe a 6.a nota: 5.7
Informe a 7.a nota: 10
Informe a 8.a nota: 8
Informe a 9.a nota: 9.1
Informe a 10.a nota: 10

Média da turma: 8.3
Quant. alunos acima da média: 5
Maior nota digitada: 10.0

A maior nota aparece na posição: 6
A maior nota aparece na posição: 9

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

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
        quant_acima_media = quant_acima_media + 1
      End If
    Next

    ' vamos mostrar os dados
    Console.WriteLine(vbCrLf & "Média da turma: " & media)
    Console.WriteLine("Quant. alunos acima da média: " & quant_acima_media)
    Console.WriteLine("Maior nota digitada: " & maior)

    ' e agora as posições da maior nota
    Console.WriteLine()
    For i As Integer = 0 To notas.GetUpperBound(0)
      If notas(i) = maior Then
        Console.WriteLine("A maior nota aparece na posição: " & i)
      End If
    Next

    Console.WriteLine(vbCrLf & vbCrLf & "Pressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub

End Module