على العموم الحل كالتالي ما عليك إلا ترجمة بسيطة للغة التي تريدينها
كود PHP:
Dim i As Integer = 0
Dim max, min, Num, Nbrnagative As Double
Dim b As Boolean = False
Dim b1 As Boolean = False
While b = False
Console.WriteLine(" أدخل رقم ")
Num = Console.ReadLine
If b1 = False Then
min = Num
b1 = True
End If
If Num <> 0 Then
i = i + 1
If max < Num Then
max = Num
End If
If min > Num Then
min = Num
End If
If Num < 0 Then
Nbrnagative += Num
End If
Else
b = True
End If
End While
Console.WriteLine(" أكبر قيمة مدخلة = " & max & " أقل قيمة مدخلة = " & min & " مجموعة القيم المدخلة = " & i & " مجموعة القيم السالبة =" & Nbrnagative)
Console.Read()
المفضلات