Manipulacija sa nizovima

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Ljudi.......ako moze mala pomoc......naime zadatak je tipa ucitati niz od recimo 20 clanova pa odrediti minimalni clan maksimalni clan, sortirati niz, arihmeticku sredinu......to uglavnom znam al mene recimo zanima svaki 4 clan pocev od prvog.........evo malo koda da Vidite sta sam radio......
ucitavanje nia
Dim i As Byte
n = Val(TextBox1.Text)
If n >= 0 And n <= 100 Then
For i = 1 To n
X(i) = Val(InputBox("unesi sl. element niza X", "X(" + Str(i) + ")"))
Next i
Else
Label2.Text = " n mora biti imedju 1 i 100"
TextBox1.Text = "" : TextBox1.Focus()
End If
End Sub
suma i arihmeticka sredina

Dim s, a As Single
Dim i As Byte
s = 0
For i = 1 To n
s = s + X(i)
Next i
a = s / n
Label2.Text = "suma je" + Str(s)
Label3.Text = "sredina je" + Str(a)
End Sub

• 1Ovo se svidja korisniku: SStteeffaann
  
  Registruj se da bi pohvalio/la poruku!

Evo ja sam ti odradio... Nisam radio nesto ovog tipa u visual basic-u, ali zato jesam u c++. Nisam bas siguran da si ovako hteo, ali tu imas kod tako da mozes sad da zakljucis kako sam uradio i da pomocu toga uradis svoj program.

Download

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Hvala, razumeo sam