{* Задача86 *}

REM basic

' В простую переменную последовательно вводятся 10 чисел. Определить максимальное значение и количество чисел, равных максимуму.


20 CLS
30 KOL = 0: MAX = -E+38
40 For I = 1 To 10
50 INPUT "Очередное число ="; X
60 If X = MAX Then KOL = KOL + 1
70 If X > MAX Then MAX = X: KOL = 1
80 Next I
90 PRINT "MAX ="; MAX; "Таких чисел"; KOL
100 End