{* Задача105 *}

REM basic

' Поиск количества минимальных элементов в заданном целочисленном массиве из 50 элементов


Dim a(50) 
RANDOMIZE TIMER
 For i = 1 To 50
 a(i) = INT(RND * 20)
Next
PRINT"massiv" 
For i=1 To 50
PRINT a(i);
If i Mod 20=0 Then PRINT
Next
PRINT
min = a(1)
k = 1
For i = 1 To 50
If a(i) = min Then k = k + 1 Else If a(i) < min Then min = a(i): k = 1
Next
PRINT "min ="; min
PRINT "min elementov ="; k
End