Заполнить массив из 35 элементов. Поменять местами наибольший и наименьший…

Module Module1Sub Main () Dim a (34) , i, min, max, n As Integer For i=0 To 34 a (i)=Console.ReadLine Next min=0 max=0 For i=1 To 34 If a (i) > a (max) Then max=i End If If a (i) < a (min) Then min=i End If Next n=a (max) a (max)=a (min) a (min)=n For i=0 To 34 Console.Write (a (i) & ") Next Console.ReadLine () End SubEnd Module