CLS
Dim max, maxi, min, mini, kacadet As Integer

max = 0
min = 999999

INPUT "kac sayı girmek istiyosun?", kacadet

Dim sayi(100) As Integer '100 elemanlı bir dizi tanımladık

For i = 1 To kacadet
INPUT "Lütfen bir sayı girin?", sayi(i) 'dizimizin sırayla birinci, ikinci üçüncü, ... elemanlarınlarına değerleri aldık

If sayi(i) > max Then 'girdiğimiz değer bizim ilk tanımladığımız max değerinden büyükse
max = sayi(i) 'yeni max değerimiz o oldu
maxi = i 'kaçıncı sayı olduğunu aldık
End If
If sayi(i) < min Then 'aynı şekilde min değerinden küçükse ...
min = sayi(i)
mini = i
End If
Next

PRINT "Girilen en büyük sayı : " , max , " (" , maxi , ". sayı)"; "Girilen en küçük sayı : " , min , " (" , mini , ". sayı)" 'ekrana bastık
End ' programı sonlandırdık.

çalışırmı çalışmazmı bilmiyorum denemeyemedim. ama mantık bu