مين الشاطر فيكم يلي بح يساعدني بتساؤلي عن الجافا

[محبة الله]

السلام عليكم
اعرف انو اغلبكم شاطرين
بس الشاطر يلي لح يرد على سؤالي
اريد كتابة خوارزمية السؤال التالي
بلغة الجافا
وبلغة الفجوال سي بلص بلص دوت نت

السؤال
اكتب برنامج لتدخيل مجموعة من القيم هذه القيم تنتهي بادخال الرقم ( صفر )
البرنامج يقوم بطباعة كل مما يلي ( مجموعة القيم المدخلة
مجموعة القيم السالبة
أكبر قيمة مدخلة
أقل قيمة مدخلة )

اتمنى كتابة الخوارزمية بالعربي
والاكواد للجافا والفيجول
ومشكورين سلفا

[Mohamed Daoudi]

السلام عليكم

هل ممكن أكتب لك حل الخوارزمية ب vb.net

[Mohamed Daoudi]

على العموم الحل كالتالي ما عليك إلا ترجمة بسيطة للغة التي تريدينها

   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()