SvDen

RANDOMIZE TIMER
Max = 0
FOR I = 1 TO 100
  A(I) = INT(RND * 100) + 1
  IF A(I) > Max THEN Max = A(I)
NEXT I
Count = 0
FOR I = 1 TO 100
    IF A(I) = Max THEN Count = Count + 1
NEXT I
PRINT "Количество элементов равных максимальному:"; Count