انجمن بچه های کنکوری!

کد: انتخاب همه

Option Base 1
Dim  i, j, countt, maincount As Integer
Dim u(10)

Private Sub Form_Load()
For i = 1 To 10
u(i) = InputBox("yek adad vared konid", Number)
Next
For j = 1 To 10
countt = 0
For j2 = 1 To 10
If u(j) = u(j2) Then
countt = countt + 1
index1 = u(j2)
End If
Next
If (maincount < countt) Then
maincount = countt
Index = index1
End If
Next
karshenasi = MsgBox("result = " + Index, vbInformation, "Result")
End Sub

کد: انتخاب همه

#include <iostream>
#include <cstdlib>

using namespace std;
int main()
{
    int a[10],max=0,index,count;
    for(int i=0 ; i < 10; ++i)
        cin>>i[a];
    for(int i=0 ; i < 10; ++i)
    {
        count=0;
        for(int j=0 ; j < 10 ; ++j)
            count+=a[j]=a[i];
        if(max<count)
            index=i;
    }

    cout<<a[index]<<endl;
    system("pause");
	return 0;
}

کد: انتخاب همه

Option Base 1
Dim  i, j, countt, maincount As Integer
Dim u(10)

Private Sub Form_Load()
For i = 1 To 10
u(i) = InputBox("yek adad vared konid", Number)
Next
For j = 1 To 10
countt = 0
For j2 = 1 To 10
If u(j) = u(j2) Then
countt = countt + 1
index1 = u(j2)
End If
Next
If (maincount < countt) Then
maincount = countt
Index = index1
End If
Next
karshenasi = MsgBox("result = " + Index, vbInformation, "Result")
End Sub