[q]
(1) 

VB ödevi

usc #1418856

Selamlar. Bir tanıdığımın VB ödevi var, çok kısa bir ödev. Bilgisi olanlar yardımcı olabilirlerse sevinirim. Soruyu görsel olarak ekliyorum.




 

Excel için istiyorsanız o konuda pek bilgim yok ancak VB ile aşağıdaki gibi yazabilirsiniz.

Dim toplam = 0
Dim ortalama = 0
Dim buyukElemanSayisi = 0
Dim kucukElemanSayisi = 0

For index As Integer = 0 To dizi.Length - 1
toplam += dizi(index)
Next

ortalama = toplam / dizi.Length

For index As Integer = 0 To dizi.Length - 1
If dizi(index) > ortalama Then
buyukElemanSayisi += 1
ElseIf dizi(index) < ortalama Then
kucukElemanSayisi += 1
End If
Next

Console.WriteLine(ortalama)
Console.WriteLine(kucukElemanSayisi)
Console.WriteLine(buyukElemanSayisi)

sacco
1

mobil görünümden çık