Új hozzászólás Aktív témák

• #2243 Milgram1 aktív tag

  Új Válasz 2013-11-11 15:58:36 #2243

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Milgram1

  aktív tag

  Sziasztok!
  Megtudja valaki mondani hogy miért 0-át ír az új tömbökbe?

  Imports System.Console
  Module Module1
  
  Sub Main()
  Dim x(20), y(20), db1, db2, z(20) As Integer
  Randomize()
  For i = 1 To 20
  x(i) = Rnd() * 99 + 1
  WriteLine(x(i))
  Next
  db1 = 0
  db2 = 0
  For i = 1 To 20
  If x(i) Mod 2 = 0 Then
  x(i) = y(i)
  db1 = db1 + 1
  Else
  x(i) = y(i)
  db2 = db2 + 1
  End If
  Next
  Write("páros számok:")
  For i = 1 To 20
  WriteLine(y(i))
  Next
  Write("páratlan számok:")
  For i = 1 To 20
  WriteLine(z(i))
  Next
  
  ReadLine()
  End Sub
  
  End Module

Új hozzászólás Aktív témák