طلب من خبراء الفجول بيسك الرجاء الدخووول ..

السلام عليكم ورحمة الله وبعد:

يا أخوان والله أني داخلن على الله ثم عليكم أنكم تحلوووون مشكلتي

أبغى أحد الخبراء يعمل لي كود لهذا البرنامج

البرنامج هو إدخال عشرة اعداد بإستخدام المصفوفة و InputBox وإخراج أصغر عدد من العشرة

ومشكوررررين أخواااني مقدماً

سلام
البرنامج بحاجة الى خبير في الخوارزميات
اعقد والله العلم ان الخوارزميات لحل هذة المسألة غير منتهية يعني مليون ومليون ومليون
ومليون الى مالانهاية هو عدد طرق الحل
الحلول موجودة لاكن اسرع طريقة لحلها هو المشكلة
عشان تكون مبرمج لازم تحاول وتشغل مخك ولازم تعرف بدون مساعدة إحدى الطرق الممكنة (الأنهائية):33:
ان شاء الله راح احاول معاك بعد ما اخلص من الأمتحانات:silly: :silly: :silly: :silly: :silly: :silly: :silly:

السلام عليكم ورحمة الله.
أخي العزيز
اولا يجب تعريف المصفوفة

Dim a(9) As Integer

ثم سنستخدم جملة تكرار لملء المصفوفة بالارقام

For i = 0 To 9
a(i) = InputBox("Input Number")
Next i

الآن سنعرف المتغير x كقيمة رقمية لأننا سنستخدمه ليكون أصغر قيمة

Dim x As Integer

ولكن قيمة اكس الرقم الاول في المصفوفة
x = a(0)

الآن نستخدم جملة تكرار أخرى لإختبار لالرقام لكن دون العدد الاول

For j = 1 To 9
If a(j) < x Then
x = a(j)
End If
Next j
MsgBox x

:biggthump

اذا لم تفهم من النص المكتوب يمكنك تحميل الملف المرفق يحتوي على البرنامج الجاهز