{* Задача117 *}

REM basic

' В массиве целых чисел с колличеством элементов n найти наиболее часто встречающееся число. Если таких чисел несколько, то определить наименьшее из них.


INPUT "vvedite kolichestvo elementov ", n
Dim a(n)
For i = 1 To n
INPUT a(i)
Next
PRINT"massiv"
For i = 1 To n
PRINT  a(i);
Next
PRINT
max=0
For i = 1 To n
k = 0
For j = 1 To n
If a(i) = a(j) Then k = k + 1
Next
If k > max Then
max = k: amax = a(i)
Else If k = max And a(i) < amax Then amax = a(i)
End If
Next
PRINT "chislo="; amax; "ono vstretilos ";max;" raz"
End