العنصر الأكثر تكرارا في المصفوفة

[ثامر أبو بلقيس]

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

أخي المبرمج لدينا مصفوفة

و لتكن مثلا :
{1,2,4,7,8,2}

العنصر الأكثر تكرارا هو 2

في مصفوفة أخرى مثلا :
{4,2,4,7,4,2}

الأكثر تكرارا هو 4

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

[ثامر أبو بلقيس]

{:abc_047: :abc_002: :abc_106: :abc_106: :abc_048: :abc_106:}

:abc_106:

[عبود عبود]

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

يمكننا إعتماد هذا الحل إلى حين وجود حلول أفضل :


--
y={4,2,4,7,4,2,7,0,7,9,7};
x={};
v=0;
for b=1,#y do
for i=1,#y do
if y[b]==y[i] then
v=v+1;
end
end
x[b]=v;
v=0;
end
m = math.max(unpack(x));
for i,s in pairs(x) do
if s==m then
t=i;
end
end
Dialog.Message("Notice", y[t], MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);


تحياتى :abc_138:

[عبود عبود]

عذرا أخى فقد كتبت الحل السابق قبل مشاهدتى الحل الذى تفضلت به فى هذه المشاركة تحت إسم المنوال

http://www.abc4web.net/vb/showpost.php?p=273651&postcount=2


:abc_152:

[ثامر أبو بلقيس]

كل التقدير على هذا التنوع في الحلول المفيد جدا
قرأت تدرج أفكارك في بناء هذا الحل الذكي ... بارك الله فيك على التفكير معي و مساعدتي :abc_138:
---
أخي وجود الحلول مهما كانت ليست استقالة بأن نتوقف عن التفكير
بالعكس ..... أأمل أن تُكتب عشرات الحلول عن كل إنشغال إن شاء الله :abc_138:
---- وتبقى الانشغالات مفتوحة لا تغلق مادامت هناك عقول تفكر بجدية
شكرا أستاذ تقديري :abc_138: